No.213
[Full thread]
Анон, помоги разобраться! Объясни как работает алгоритм (паскаль).
1) Составьте программу определения максимального из всех введенных чисел (Признак окончания работы -0).
==
var max,i:integer;
begin
writeln('Input number');
read(max);
repeat
read(i); {Откуда берет свои значения переменная i?}
if max<i then max:=i;
until i=0;
writeln('Max:',max);
end.
2) Дана непустая последовательность ненулевых чисел, за которой следует ноль. Определить, сколько раз в этой последовательности меняется знак (например, в последовательности 1,38,8,-14,6,-4 знак меняется 3 раза).
==
var a,k,n:integer;
begin
Анон, помоги разобраться! Объясни как работает алгоритм (паскаль).
1) Составьте программу определения максимального из всех введенных чисел (Признак окончания работы -0).
==
var max,i:integer;
begin
writeln('Input number');
read(max);
repeat
read(i); {Откуда берет свои значения переменная i?}
if max<i then max:=i;
until i=0;
writeln('Max:',max);
end.
2) Дана непустая последовательность ненулевых чисел, за которой следует ноль. Определить, сколько раз в этой последовательности меняется знак (например, в последовательности 1,38,8,-14,6,-4 знак меняется 3 раза).
==
var a,k,n:integer;
begin
writeln('Введите числа (0-конец)');
read(a);
k:=a;
while a<>0 do
begin
read(a); {Почему "k" равно предыдущему значению "а"?}
if k*a<0 then n:=n+1;
k:=a;
end;
writeln('Знак меняется ',n,' раз' );
end.
