Задан массив из 10 целых чисел. написать программу которая находт -сумму всех элементов массива -колличество чётных и нечётных элементов массива

155

413

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

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

repkinvasya

Информатика

4,5(37 оценок)

Const n=10; var a: array[1..n] of integer; i,s,k1,k2: integer; begin writeln('vvedite massiv='); for i: = 1 to n do readln(a[i]); s: =0; k1: =0; k2: =0; for i: = 1 to n do begin s: =s+a[i]; if a[i] mod 2=0 then inc(k1) else inc(k2); end; writeln('s=',s,' k1=',k1,' k2=',k2); readln; end.

58722001

Информатика

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

Модель объекта , представленная в виде информации .информационные модели представляют объекты и процессы в образной форме . я примеры знаковых моделей. это могут быть формулы (законы ньютона ), таблица (периодическая таблица менделеева ),и текст ( программы на языке программирования ).