ОБЬЕСНИТЕ КАЖДУЮ КОМАНДУ КАЖДУЮ СТРОЧКУ ЧТО ГДЕ ПРОИСХОДИТ
program z_7;
var i, s, m: integer;
a: array [1..10] of integer;
begin
s:=0; m:=0;
writeln ('Введите 10 целых чисел:');
for i:=1 to 10 do begin
write (i, ' число: ');
readln (a[i]);
if a[i] > s then s := a[i];
end;
for i := 1 to 10 do
begin
if a[i]=s then m:=m+1;
end;
writeln(m, ' элемента(-ов) массива имеют максимальное значение.');
end.
program z_7;
var i, s, m: integer;
a: array [1..10] of integer;
begin
s:=0; m:=0;
writeln ('Введите 10 целых чисел:');
for i:=1 to 10 do begin
write (i, ' число: ');
readln (a[i]);
if a[i] > s then s := a[i];
end;
for i := 1 to 10 do
begin
if a[i]=s then m:=m+1;
end;
writeln(m, ' элемента(-ов) массива имеют максимальное значение.');
end.
More Questions From This User See All
Answers & Comments
1 строчка говорит о том что ты создал программу под таким названием
2 строчка ты создаешь 3 переменных типа integer(числовой тип данных)
3 строчка ты создаешь массив из 10 ячеек так же типа integer
4 строка начало программы
5 строка ты присваиваешь значение переменным которые создал во 2 строке
6 это функция вывода на экран(то что в скобках)
7 начало цикла который будет повторяться 10 раз
8 так же вывод в консоль
9 функция ввода с клавиатуры
10 проверка если итый (порядковый номер из массива) элемент массива больше s, тогда переменная s равна этому числу
11 конец цикла
12 начало другого цикла который так же повторяется 10 раз
13 начало
14 проверяешь если а итый равен s , тогда m+1
15 конец цикла
16 вывод на экран текста
17 конец программы