Есть ответ 👍

Для натурального числа а запишіть наступні чотири натуральні числа.

113
138
Посмотреть ответы 2

Ответы на вопрос:


Відповідь:

a + 1; a + 2; a + 3; a + 4.

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

Популярно: Другие предметы