Регистрация
baranovkirill
06.09.2022 04:57
Информатика
Есть ответ 👍

Дан целочисленный массив из 10 элементов вывести на экран все его нечетные элементы предварительно расположив их по возрастанию методом выбора решить

211
360
Посмотреть ответы 2

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

Умняшаааа145
Умняшаааа145
4,4(48 оценок)

Program PR;varI:byte;Mas:array[1..10] of integer;beginfor I:=1 to 10 do begin write(‘Введите 10 чисел:’); readln(Mas[I]);end;writeln(‘Список четных элементов массива:’);for I:=1 to 10 do if Mas[I] mod 2=0 then writeln(Mas[I]);readln;end.

Думаю, что

Aikony
Aikony
4,4(97 оценок)

const n=20;

var a: array [1..n] of integer;

i,s: integer;

begin

write('массив: ');

for i: =1 to n do

begin

a[i]: =random(31)+20;

write(a[i]: 3,' ');

if a[i] > 30 then s: =s+a[i]

end;

writeln;

write('сумма чисел, больше 30: ',s)

end.

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