5 класс ТЖБ СОЧ информатика ребусты шешип бериндерши отиниш

270

431

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

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

МашаКан

Информатика

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.