Какое значение появится на экране компьютера в результате работы данной программы:
var
а: array [1..10] of integer;
k, m, i: Integer;
Begin
k:=0;
for i:=1 to 10 do
read (a[i]);
m:=a[1];
for i:=1 to 10 do
if a[i]>m then m:=a[i];
for i:=1 to 10 do
if a[i]=m then k:=k+1;
write (k);
End.
если в качестве элементов массива были введены следующие числа: 2, 45, 23, 6, 23, 45, 4, 0,
10, 3?
ответ: 2
Смотрите вложение.