program z1;
var a,b,k,i:integer;
begin
k:=0;
write('Ââåäèòå êîîðäèíàòó à: ');
read(a);
write('Ââåäèòå êîîðäèíàòó b: ');
read(b);
for i:=a to b do begin
if i mod 3=0 then begin
writeln(i);
k:=k+1;
end;
end;
writeln('Количество чисел кратных трём равно ',k);
readln;
end.
program z1;
var a,b,k,i:integer;
begin
k:=0;
write('Ââåäèòå êîîðäèíàòó à: ');
read(a);
write('Ââåäèòå êîîðäèíàòó b: ');
read(b);
for i:=a to b do begin
if i mod 3=0 then begin
writeln(i);
k:=k+1;
end;
end;
writeln('Количество чисел кратных трём равно ',k);
readln;
end.
23
Объяснение:
Программа находит наибольшее среди чисел в массиве A. Для этого создается переменная m, в которой хранится наибольшее число, найденное в данный момент. Затем запускается цикл for от 1 до 10, и для каждого i сравнивается A[i] с m. Если A[i] больше, то в m записывается это значение. Таким образом, после выполнения цикла for в переменной m будет храниться значение 23.