[likos]

Ребят, сейчас на практике и мне очень нужна помощь с задачей в паскале, кому не сложно помогите.
Массив который состаит из целых чисел созданый с n случайных чисел, нужно сравнить между собой сумму парных и непарных елементов.

[Boss199999]

Парные и непарные элементы - это четные и нечетные?

[likos]

да.

[koysara]

Если еще актуально, пишите в личку, разберемся :)

[likos]

актуально, только я щас с телефона и не могу в личку написать

[staurus]

uses crt;
const max=100;
var a:array[1..max] of integer;
n,i:byte;
s1,s2:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
begin
a[i]:=random(20)+1;
write(a[i],' ');
end;
writeln;
writeln;
writeln('Нечетные элементы массива:');
s1:=0;
for i:=1 to n do
if a[i] mod 2<>0 then
begin
s1:=s1+a[i];
write(a[i],' ');
end;
writeln;
writeln('Сумма=',s1);
writeln;
writeln('Четные элементы массива:');
s2:=0;
for i:=1 to n do
if a[i] mod 2=0 then
begin
s2:=s2+a[i];
write(a[i],' ');
end;
writeln;
writeln('Сумма=',s2);
write('Разность нечетных и четных=',abs(s1-s2));
readln
end.

[likos]

можешь выложить без спойлера, я не могу его открыть в мини опере

[koysara]

Уже выложили, а я писать только начал.
Ну ладно, в следующий раз :)

[likos]

staurus, спасибо, выручил.