Question

и

«С»: Напишите программу (в Паскале),которая заполняет массив из
20 элементов случайными числами на отрезке
[100; 1000] и находит отдельно сумму элементов в
первой и во второй половинах массива.

Answer 1

program mas_sum_1_i_2_polovin;

const

n=20;

var

a:array[1..n] of integer;

i,s:integer;

begin

for i:=1 to n do

begin

a[i]:= random(901)+100;

write(a[i],' ');

end;

writeln;

s:=0;

for i:=1 to n div 2 do

s:=s+a[i];

writeln(s);

s:=0;

for i:=n div 2 to n do

s:=s+a[i];

writeln(s);

readln;

end.