Заполнить двумерный массив по правилу - Turbo Pascal

  1. 1. Заполните двумерный массив размерности n × n следующим образом: 1 0 3 0 5 … 1 0 3 0 5 … 1 0 3 0 5 … 1 0 3 0 5 … 1 0 3 0 5 … … … … … … … Выведите результат на экран.  


textual

Код:

var
  a: array[1..20,1..20] of integer;
  n,i,j: integer;
begin
  write('Введите размер массива n: ');
  readln(n);
  writeln('Массив:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if odd(j) then a[i,j]:=j
        else a[i,j]:=0;
      write(a[i,j]:4);
    end;
    writeln;
  end;
  readln;
end.


Похожие ответы
  1. Ввести с клавиатуры двумерный массив из 9 чисел, подсчитать сумму элементов всего массива

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

  1. Создать двумерный массив и вывести его на печать в виде матрицы.Выполнить задание: (i,j=1..4) 1) xi,j = i tan(pi/5) / 2+sin(ij) -вычислить сумму элементов столбцов. 2)xi,j=ctg(pi/5)+0,4 / 56+sin j -вычислить произведение элементов столбцов. Что тут означает вывести двумерный массив на печать? И что нужно делать с примерами 1 и 2?

  1. Выручайте. На этом форуме неправильное решение

  1. Всем добрый день,помогите с решением задачи. Двумерный квадратный массив целых считывается из текстового файла. Программа выводит квадратный массив в консольное окно, выдает информацию о его размере, количестве положительных и отрицательных элементов.

  1. Массив предназначен для хранения значений ростов 12 человек. С помощью датчика случайных чисел заполнить массив целыми значениями, лежащими в диапазоне от 163 до 190 включительно. не знаю как записать рандом в ИнтАле

  1. Не могу разобраться как заполнить двумерный массив случайными строчными и заглавными буквами латинского алфавита. Помогите разобраться.

  1. Задача 8 Переформировать двумерный массив: в одномерный: (2, 7, -1, 0, 4, 5, 7, -5, 6).

  1. Cформировать квадратную матрицу порядка n по заданному образцу: Всем огромное спасибо заранее)

  1. Вот такая задачкаФайл f заполнить 400 случайными действительными числами. Найти разницу первой и последней компоненты файла f Наперед огромное спасибо