Какие принципиальные изменения произошли в создании этого процесса создания текста внёс компьютер
188
211
Ответы на вопрос:
var a:array[1..9] of integer;
i,j,c,sum,t:integer;
begin
c:=0;
sum:=0;
for i:=1 to 9 do readln(a[i]);
for i:=1 to 9 do begin
if a[i]>2 then c += 1;
if a[i]<12 then sum += a[i];
end;
for i:=1 to 9 do begin
for j:=9 downto i do begin
if a[j]>a[i] then begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
end;
end;
writeln('Количество чисел > 2: ',c);
writeln('Сумма чисел < 12: ',sum);
for i:=1 to 9 do writeln('a[',i,']=',a[i]);
end.
Популярно: Информатика
-
drachl29.11.2021 06:06
-
polina467373825.04.2021 08:01
-
minakim28mina15.04.2020 08:33
-
Милкович1104.09.2021 04:54
-
wof123427.08.2021 14:02
-
Паха555KXZ21.01.2021 12:15
-
inakenyakakyevich11.10.2021 09:03
-
kulaevasvetlan07.07.2021 05:29
-
vova1111217.05.2020 07:36
-
Maestror17.04.2021 10:22