Question

Помогите с паскалем.
Составить блок схему и программу.
1. Найти сумму четных элементов массива целых чисел.
2. Дан массив в котором все элементы различны. Удалить из него минимальный элемент.

Answer 1

var
  a: array of integer;
  s, i, j: integer;

begin
  setLength(a, 11);
  for i := 0 to 10 do
  begin
    a[i] := round(random(55));
    write(a[i]:6);
  end;
  
  writeln(#13, #13, '-=1=-');
  for i := 0 to 10 do
    if (a[i] mod 2 = 0) then
      s := s + a[i];
  writeln(s);
  
  writeln(#13, #13, '-=2=-');
  s := 0;
  for i := 0 to 10 do
    if (a[s] > a[i]) then
      s := i;
  for i := s to 9 do
    a[i] := a[i + 1];
  setLength(a, 10);
  for i := 0 to 9 do
    write(a[i]:6);
end.