Явсе сделала только последний пункт не могу сортировку сделать

131

266

Посмотреть ответы 1

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

Froxy

Информатика

4,5(51 оценок)

Const n=20; var a: array [1..n] of integer; s,i: integer; begin writeln('исходный массив: '); for i: =1 to n do begin a[i]: =random(90); write(a[i],' '); end; writeln; s: =0; for i: =1 to n do if (a[i] mod 2 < > 0)and(a[i] mod 3 = 0) then s: =s+a[i]; writeln('s=',s); end. пример: исходный массив: 66 14 74 6 15 65 42 37 34 0 63 75 69 17 50 15 78 14 7 35 s=237