Составить блок-схему и программу следующей задачи: Подсчитать сумму и произведение всех двузначных чисел.

241

406

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

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

alonbinyaminov1

Информатика

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

Вот не уверенна, что правильно program a1; uses crt; var a: array [1..15] of integer; i: integer; begin clrscr; for i: =1 to 15 do begin a[i]: = random ()+1)+(-10); write (a[i],' '); end; writeln; for i: =1 to 15 do begin if i mod 2=0 then a[i]: =5; end; for i: =1 to 15 do write {a[i].' '); readln; readkey; end.