Регистрация
taniash052005
28.04.2023 04:48
Информатика
Есть ответ 👍

Program prog;
var i: integer; a: array [1..10] of integer; k,max:
integer;
begin
for i: =1 to 10 do
readln (a[i]);
max: =a[1];
k: =1;
for i: =2 to 10 do begin
if(a[i]=max) then begin k: =k+1; end;
if(a[i]> max) then begin k: =1; max: =a[i]; end;
end;
writeln(max);
writeln(k);
end.
где ошибка

137
424
Посмотреть ответы 2

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

Улан141
Улан141
4,4(40 оценок)

ответ:

а это что за ссылка напиши.

linagalkinaa
linagalkinaa
4,4(26 оценок)
Исходная     aл в обратном порядке   ла подставляем   м (следующая в алфавите за л) получили: ал лам   в обратном порядке   мaлла ;   подставляем  н   (следующая за м)   получили:     алламмаллан

Популярно: Информатика