1. в массиве а(11) случайных целых чисел (диапазон чисел [-10.. 25] ) определить: сумму элементов, которые кратны 5. 2. в массиве b(6) случайных целых чисел (диапазон чисел [-4.. 53] ) определить: количество элементов, которые меньше 7.

286

290

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

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

МашаКан

Информатика

4,4(98 оценок)

1. var i,summa: integer; a: array [1..11] of integer; begin summa: =0; randomize; write('массив: '); for i: =1 to 11 do begin a[i]: =random(36)-10; write(a[i],' '); end; writeln; for i: =1 to 11 do if a[i] mod 5 = 0 then summa: =summa+a[i]; writeln('сумма чисел кратных 5= ',summa); end.2.var i,s: integer; a: array [1..6] of integer; begins: =0; randomize; write('массив: '); for i: =1 to 6 do begin a[i]: =random(58)-4; write(a[i],' '); end; writeln; for i: =1 to 6 do if a[i] < 7 then s: =s+1; writeln('количество элементов меньших 7: ',s); end.