Задача 1
program z1;
var n,a,i,k:integer;
begin
write ('Введите количество чисел: ');
read (n);
for i:=1 to n do
begin
write ('Введите число: ');
read (a);
if a = 0 then k:=k+1
end;
writeln('Количество нулей среди чисел: ',k)
end.
Задача 2
program z2;
var n,a,i,m:integer;
begin
write ('Введите количество чисел: ');
read (n);
for i:=1 to n do
begin
write ('Введите число: ');
read (a);
if i = 1 then m:=a;
if a > m then m:=a
end;
writeln('Максимальное число среди чисел: ',m)
end.
или
program z2;
var n,i,m:integer;
a:array[1..100] of integer;
begin
write ('Введите количество чисел (n<=100): ');
read (n);
for i:=1 to n do
begin
write ('Введите число: ');
read (a[i]);
if i = 1 then m:=a[i];
if a[i] > m then m:=a[i]
end;
writeln('Максимальное число среди чисел: ',m)
end.
назарбаевпен тікелей эфир ел арна жаңалықтары үұ
Объяснение:
үш тіс бір түрлі болып тұр маленькии по моему керамика және тілдерді үпүпү