Задан одномерный целочисленный массив из 10 элементов заполненных произвольно. вывести массив на экран, подсчитать количество элементов кратных пяти, вывести эти элементы на экран.(сделать програмку нужно в паскале).

246

437

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

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

БЕРЕНА

Информатика

4,8(39 оценок)

Const n = 10; var i,k,c: integer; a: array[1..n] of integer; begin //заполняем массив и выводим на экран for i: =1 to n do begin a[i]: =random(150)-50; write(a[i]: 5); end; writeln; //вывод элементов кратных пяти k: =0; for i: =1 to n do if a[i] mod 5 = 0 then begin write(a[i]: 5); k: =k+1; end; writeln; writeln('всего кратных пяти - ',k); end.