Заполнить с клавиатуры массив a[1...9]. Вывести на экран количество чисел , больших 2 и сумму тех, которые не больше -12. Отсортировать массив по убыванию и вывести на экран в одну строку. Ребят кто шарит помогите пожалуйста. Заранее огромное вам спасибо!!!
Ответы
Ответ дал:
0
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.
Приложения:
![](https://st.uroker.com/files/16b/16b506451ead300fa4d597fc2674166f.png)
Ответ дал:
0
Если массив в одну строчку, то последний for замени на: for i:=1 to 9 do write(a[i],' ');
Вас заинтересует
1 год назад
1 год назад
2 года назад
2 года назад
7 лет назад
7 лет назад
8 лет назад