Случайным образом заполнить одномерный массив целых чисел А [i], где i = 1, 2, ., n. Вывести этот массив - Free Pascal

Формулировка задачи:

1. Значение элементов в обратном направлении 2. Значение элементов с четными индексами 3. Значение элементов с нечетными индексами 4. Значение парных элементов массива 5. Значение нечетных элементов массива 6. Значения элементов массива> 50 7. Значение элементов массива <50

Код к задаче: «Случайным образом заполнить одномерный массив целых чисел А [i], где i = 1, 2, ., n. Вывести этот массив - Free Pascal»

textual
const n=10;
var
  a:array[1..n] of integer;
  i:integer;
begin
  randomize;
  write('A:');
  for i:=1 to n do begin
    a[i]:=random(101);
    write(a[i]:4);
  end;
  writeln;
  writeln('1.'); for i:=n downto 1 do write(a[i]:4);writeln;
  writeln('2.'); for i:=1 to n do if not odd(i) then write(a[i]:4);writeln;
  writeln('3.'); for i:=1 to n do if odd(i) then write(a[i]:4);writeln;
  writeln('4.'); for i:=1 to n do if not odd(a[i]) then write(a[i]:4);writeln;
  writeln('5.'); for i:=1 to n do if odd(a[i]) then write(a[i]:4);writeln;
  writeln('6.'); for i:=1 to n do if a[i]>50 then write(a[i]:4);writeln;
  writeln('7.'); for i:=1 to n do if a[i]<50 then write(a[i]:4);writeln;
end.

12   голосов, оценка 3.833 из 5


СОХРАНИТЬ ССЫЛКУ
Похожие ответы