Помогите по информатике paskal;
Заполнить массив натуральными числами от 5 до 15 , все четные числа разделить на два и вывести на экран сумму элементов.
Заполнить массив натуральными числами от 5 до 15 , все четные числа разделить на два и вывести на экран сумму элементов.
More Questions From This User See All
Answers & Comments
program HelloWorld;
const N = 10;
var m:array [1..N] of real;
var i: integer;
var j: integer;
var summ: real;
begin
summ:=0;
for i := 1 to N do
begin
j:= 5 + random(10);
m[i]:=j;
if j mod 2 = 0 then m[i]:=m[i]/2;
summ:=summ+m[i];
end;
write(summ:10:0);
end.