НУЖНО,ВОПРОС ЖИЗНИ И СМЕРТИ. Придумайте сказку небольшую на тему "Информатика".
240
380
Ответы на вопрос:
информатика самое крутое преподовательное приложение которое нас учит компьютерам оно учит использованию компьютеров я люблю это приложение
pascal:
var a,n,count,max,i: integer;
begin
count : =0;
max: = -1;
readln(n);
for i: =1 to n do
begin
readln(a);
if (a> max) then
begin
max: =a;
count: =1;
end
else
begin
if (a = max) then
count: =count+1;
end
end;
writeln(count);
end.
Популярно: Информатика
-
Маша541106.02.2020 23:06
-
катя1236224.12.2020 20:30
-
SergeSaenko16.06.2020 04:46
-
ibrashovo07.07.2020 07:36
-
Dryunya198920.07.2021 23:14
-
Максиmm23.08.2022 12:04
-
KOSHAPLAY2708200717.06.2023 01:38
-
00masha00029.05.2022 08:43
-
venqa22826.08.2020 12:49
-
kolyapauk2016p08ax416.01.2021 15:49