Ответы на вопрос:
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
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
Популярно: Другие предметы
-
Chekinae15.11.2022 03:05
-
dashagor207.10.2020 03:09
-
zaika2590122.09.2021 14:01
-
ololol121314.05.2022 21:14
-
Жанеля20000429.04.2021 02:01
-
daniildorunov02.01.2020 14:23
-
Masimo113.02.2023 07:21
-
sainegorova20128.02.2022 11:37
-
koksenenko1023.02.2021 18:22
-
Elenka927217.07.2021 10:41