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

  1. Заполнить двухмерный массив чисел единицами.


textual

Код к задаче: «Заполнить двухмерный массив чисел единицами - Turbo Pascal»

const
  n = 6;
  m = 7;
var
  z : array [1..n, 1..m] of integer;
  i, j : integer;  
begin
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      z[i,j] := 1;
      write(z[i,j]:4)      
    end;
    writeln
  end;  
  readln
end.

СДЕЛАЙТЕ РЕПОСТ

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



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

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

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

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

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

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

  1. Построить окружность синего цвета и заполнить ее косыми линиями // нормальной толщины.

  1. заполнить матрицу n на n следующим образом

  1. Массивы Х(10) и Y(10) заполнить целыми случайными числами из диапазона от 0 до 50. Сформировать массив М таким образом, что М(I)=1, если X(I)>Y(I), в противном случае М(I)=0. Вывести Х,Y,M.

  1. Матрицу Y(6, 9) заполнить целыми случайными числами в диапазоне от -10 до 14. Определить количество пар Р(9) элементов матрицы Y в каждом столбце таких, что Y(I-1, J)*Y(I, J)<0. Матрицу Y, массив Р, а также все попарные произведения вывести.