Сформировать матрицу по правилу - Turbo Pascal

  1. Составьте программу ввода и вывода матрицы A там картинка с числами


textual

Код к задаче: «Сформировать матрицу по правилу - Turbo Pascal»

const
  n=3;
  m=4;
var
  a: array[1..n,1..m] of integer;
  i,j: integer;
begin
  writeln('Ââåäèòå ýëåìåГ*ГІГ» Г¬Г*Г±Г±ГЁГў:');
  for i:=1 to n do
    for j:=1 to m do
    begin
      write('A[',i,',',j,']=');
      readln(a[i,j]);
    end;
  writeln('Ïîëó÷åГ*Г*ûé Г¬Г*Г±Г±ГЁГў:');
  for i:=1 to n do
  begin
    for j:=1 to m do
      write(a[i,j]:4);
    writeln;
  end;
end.

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

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



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

  1. Произвольно заданы три одномерных массива. Сформировать новый массив, состоящий из десяти элементов с наибольшими значениями исходных массивов. Помогите пожалуйста! Нужно написать программу с while и repeat!!!(отдельные)

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

  1. В массиве а1, а2, ..., а30 найти среднее арифметическое всех отрицательных элементов, а из оставшихся сформировать новый массив bk. Буду очень благодарен.

  1. Написать программу на TurboPascal. Задан случайными числами массив А. Сформировать новый массив С, который состоит из элементов массива А, которые превосходят свой номер на 10. одномерные массивы. помогите решить. Я уж и так и эдак, но ничего нормального даже близко не выходит.

  1. зарегистрироваться в файл двумерный A массив размером n*n. работу программы нужна начат с чтения матрицы из файла и Параллельно изображат на графическом экране. матрицу нужно изменять по следующему принципу,передвигая строку и столбец поместить Наибольший элемент матрицы на верхний левый угол' в nклетке (1,1) . тем же самым способом нужно поступить с матрицои , которая является производным от предыдущей, не принимая во внимание первую строку и столбец. Наибольший элемент второй матрицы должен появится в клетке (2,2).так продолжая сформировать главную диагональ матрицы

  1. Даны числа А1,..,А10;B1,..,B20.Получить матрицу С i,j,(i=1,..,20;j=1,..,10) Для которой Сi,j=A/(1+Bi). Ребят,помогите!

  1. Используя описание список = ^ звено звено = record элемент: тип элемента следующий список end Написать программу , которая формирует список L, включив в него по одному разу элементы, которые входят хотя бы в один из списков L1 и L2.

  1. Получить матрицу: 1 0 ... 0 1 0 1 ... 1 0 ............. 0 1 ... 1 0 1 0 ... 0 1

  1. Помогите решить задачу кому не сложно Построить матрицу k порядка с использованием процедуры, по образцу