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

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

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.

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 < > 0)

    then sum_c: = sum_c + x;

  if x mod 2 < > 0

    then sum_n: = sum_n + x;

end;

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

end.

pascalabc 3.4.2

Площадь трапеции определяется, как произведение полусуммы оснований на высоту трапеции. для определения высоты трапеции h по длинам её сторон (a,b,c,d, при этом a - большее основание, b - меньшее основание) в общем случае есть формула: var   a, b, c, d, h, s: real; begin   write('длина большего основания: '); readln(a);   write('длина меньшего основания: '); readln(b);   write('длины боковых сторон (через пробел): ');   readln(c, d);   h : = sqrt(sqr(c) - sqr((sqr(a - b) + sqr(c) - sqr(d)) / (2 * (a - ;   s : = (a + b) / 2 * h;   writeln('площадь трапеции равна ', s: 0: 4) end. тестовое решение: длина большего основания: 10 длина меньшего основания: 7 длины боковых сторон (через пробел): 3 5 площадь трапеции равна 23.4928

Var a: array[1.. 10000]of longint;       n,i,j,min: integer; begin   writeln('vvedite n');   readln(n);   writeln('vvedit chisla');   for i: =1 to n do read(a[i]);   min: =a[1];   for i: =1 to n do       begin        if min> a[i] then begin  min: =a[i]; j: =i; end;     end;   write(i-1); end. если n будет больше то в описании увеличь размер массива там где подчеркнуто