Написать программку заполняющую строковой массив с размером 5 с клавиатуры ,

Под строковым массивом вы имели ввидуОдномерный массив чисел a: array[1..n] of integerилиОдномерный массив строк a: array[1..n] of string?

a: array[1..n] of integer

program raf105;

var

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

 x,sum_n,sum_c,res,i: integer;

begin

writeln('Вводите 5 чисел по очереди');

for i:=1 to 5 do

begin

 readln(x);

 if (x mod 2 = 0) and  (x lt;gt; 0)

   then sum_c:= sum_c + x;

 if x mod 2 lt;gt; 0

   then sum_n:= sum_n + x;

end;

writeln('Вывод: ',sum_n-sum_c);

end.

PascalABC 3.4.2

Хз правильно либо нет

uses crt;

var

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

s,i: integer;

begin

for i:=1 to 10 do begin

a[i]:=random(51)-25;

write(a[i],'; ');

s:=s+a[i];

end;

writeln;

writeln('Сумма частей массива: ',s);

end.