Паскаль найти сумму первых пяти и последних пяти и сравнить сумму элементов массива

Question

Информатика

Данилка

26 сентября, 04:14

Паскаль найти сумму первых пяти и последних пяти и сравнить сумму элементов массива

+3

Ответы (1)

Лика · Answer 1

Если будут вопросы или что-то нужно изменить пиши.

const n=10;

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

i, s1, S2: integer;

begin

for i : = 1 to n do

begin

a[i] : = Random (100) ;

Write (a[i],' ') ; end;

for i:=1 to n do

if i< (n/2) then S1:=S1+a[i] else S2:=S2+a[i];

writeln;

if S1S2 then if s1Комментировать