Var a: array[1..3]of integer; i, max, t, k: integer; begin writeln('введите числа'); for i: =1 to 3 do read(a[i]); for i: =1 to 3 do write(a[i]); writeln(); max: =a[1]; k: =0; for i: =1 to 3 do begin if (a[i]> max) then begin max: =a[i] t: =max; end; if (a[i]=t) then k: =k+1; end; writeln('количество= ',k); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
