Дан массив из 10 целых чисел заполненный случайными числами из интервала [0;15]. Определить является ли сумма элементов массива четным числом.

Question

Дан массив из 10 целых чисел заполненный случайными числами из интервала [0;15]. Определить является ли сумма элементов массива четным числом.

Гость

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

Accepted Answer

program mckd; uses crt; var a:=array [1..100] of integer; i,s:integer; begin randomize; clrscr; for i:=1 to 10 do a[i]:=random(16); for i:=1 to 10 do s:=s+a[i]; if s mod 2 =0 then writeln('+') else ('-'); readln; end. С рандомом боюсь ошибся, но вроде по формуле