Решаем задачи Абрамян на Паскале. Array10

Array10. Дан целочисленный массив размера $$N$$. Вывести вначале все содержащиеся в данном массиве четные числа в порядке возрастания их индексов, а затем — все нечетные числа в порядке убывания их индексов.

Решение:

program Array10;
var
  a:array[1..10] of integer;
  N,i:Integer;

begin
  Write('N:');
  Readln(N);
  for i:=1 to N do
   begin
    write(i,' :');
    readln(a[i]);
   end;

  for i:=1 to N do
    if i mod 2 = 0 then writeln(i,' : ',a[i]);

  for i:=N downto 1 do 
    if i mod 2 <> 0 then writeln(i,' : ',a[i]);
end.

program Array10;

var

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

N,i:Integer;

begin

Write('N:');

Readln(N);

for i:=1 to N do

begin

write(i,' :');

readln(a[i]);

end;

for i:=1 to N do

if i mod 2 = 0 then writeln(i,' : ',a[i]);

for i:=N downto 1 do

if i mod 2 <> 0 then writeln(i,' : ',a[i]);

end.

Другие задачи из раздела Array можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Array10

Комментарии:

Добавить комментарий Отменить ответ