Помогите по информатике paskal;

Заполнить массив натуральными числами от 5 до 15, все четные числа разделить на два и вывести на экран сумму элементов.

Question

Информатика

Филарета

8 января, 23:44

Помогите по информатике paskal;

Заполнить массив натуральными числами от 5 до 15, все четные числа разделить на два и вывести на экран сумму элементов.

+3

Ответы (1)

Знаете ответ на вопрос?

Потап · Answer 1

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.

Помогите по информатике paskal;Заполнить массив натуральными числами от 5 до 15, все четные числа разделить на два и вывести на экран сумму элементов.

Помогите по информатике paskal;

Заполнить массив натуральными числами от 5 до 15, все четные числа разделить на два и вывести на экран сумму элементов.