ДОМ 10 Б файла прикрепила 2 задания
в первом поднять перо т сместится на точку (1 ,1)

253

254

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

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

mailkostya1992

Информатика

4,7(32 оценок)

Const n=10; var a: array[1..n] of integer; c,d,i: integer; begin randomize; for i: =1 to n do a[i]: =random(201)-100; writeln('заданные числа, с рандома: '); for i: =1 to n do writeln(a[i],' '); for i: =1 to n do if a[i] mod 2=0 then c: =c+a[i] else d: =d+a[i]; writeln('сумма четных элементов: ',c); writeln('сумма нечетных элементов: ',d); end.