Из последовательности целых чисел от 0 до 200 выбрать и просуммировать отдельно четные и нечетные. использовать функцию trunc

Const
  maxn = 200;

type
  myarr = array [1..maxn] of longint;

var
  a: myarr;
  sumch, sumnch: int64;

begin
  sumch := 0;
  sumnch := 0;
  for i := 1 to 200 do begin
    read(a[i]);
    if (a[i] mod 2 = 0) then
      sumch := sumch + a[i]
    else
      sumnch := sumnch + a[i];
  end;
  writeln('Сумма четных элементов = ', sumch);
  writeln('Сумма нечетных элементов = ', sumnch);
end.

3.1. 200

3.2. for i:1 to 200 do  a[i]:=random(100)-50;

3.3.  (т.к 4 байта)

либо -50 ... 50 (рандом)

3.4. Чтобы значения не "склеивались", т.к было расстояние между элементами

4.1. a[номер элемента] = значение элемента "перенос строки"

4.2. Для подсчета количества элементов равных 20

4.3.  k - она объявлена, но не используется

4.4.  Количество элементов равных 20

5.

var

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

i,n,p,k: integer;

begin

p:=0;

n:=0;

randomize;

for i:1 to 300 do

a[i]:=random(40)-20;

for i:=1 to 300 do

write(a[i],' ');

writeln;

for i:=1 to 300 do

if a[i]=p then

begin

writeln('a[',i,']=',a[i]);

n:=n+1;

end;

writeln;

writeln(n);

end.

ꟷꟷꟷꟷꟷꟷ      

Не забывайте сказать " "! и, если ответ удовлетворил, то выберите его как "Лучший"    

Бодрого настроения и добра!        

Успехов в учебе!

задание 1:

использовать Робот

алг

нач

цел с=0

нц

вверх

если слева стена то закрасить; с:=1 всё

кц при с=1 и слева свободно

нц пока снизу свободно

если слева стена то с:=1 иначе с:=0 всё

вниз

если с=1 и слева стена то закрасить всё

кц

нц

если снизу свободно то с:=0 всё

вправо

если снизу стена то

закрасить

если с=0 то с:=2 всё

всё

кц при с=2 и снизу свободно

кон

задание 2:

использовать Робот

алг

нач

цел с=0

нц

влево

если сверху стена то закрасить; с:=1 всё

кц при с=1 и сверху свободно

нц пока справа свободно

если сверху стена то с:=1 иначе с:=0 всё

вправо

если с=1 и сверху стена то закрасить всё

кц

нц

если справа свободно то с:=0 всё

вниз

если справа стена то

закрасить

если с=0 то с:=2 всё

всё

кц при с=2 и справа свободно

кон