Задача №1. Даны действительные числа а1, ...а30. Получить новую последовательность...

Question

Задача №1. Даны действительные числа а1, ...а30. Получить новую последовательность удалением из исходной тех членов, порядковые номера которых кратны трем.
Задача №2. Поменять местами максимальный отрицательный и первый положительные элементы массива В(18).

---

Answer 1

Const  n = 20;
var  a: array[1..n] of real;
  i: integer;
begin
  for i := 1 to n do
    read(a[i]);
  for i := 1 to n do
    if(i mod 3 <> 0) then write(a[i], ' ');
end.

const  n = 18;
var  a: array[1..n] of integer;
  i, max, fir: integer;
begin
  max := 1;
  fir := 0;
  for i := 1 to n do 
  begin
    read(a[i]);
    if(fir = 0) and (a[i] > 0) then fir := i;
    if(a [i] < 0) and (a[max] < a[i]) then max := i;
  end;
  i := a[max];
  a[max] := a[fir];
  a[fir] := i;
  for i := 1 to n do 
    write(a[i], ' ');
end.

Comments

Спасибо за проделанный труд, только он во второй задаче не меняет местами первый положительный элемент и максимальный отрицательный.