Заполнение элементов матрицы с клавиатуры

program zadacha1;

{ввод - с клавиатуры, вывод - в столбик }

var

а: аrray [1..10,1..10] of real

i, j: integer;

begin

for i: =1 to 10 do

for j: =1 to 10 do

begin

readln (a[i,j]);

writeln (‘a(‘, i, ‘.,’,.j,’)=’, a[i,j]){вывод -в столбик}

епd.

Пример программы ввода-вывода матрицы

Заполнение элементов матрицы по формуле

program zadacha2;

{ввод - по формуле, вывод - таблицей }

var

а: аrray [1..10,1..10] of real;

i, j: integer;

begin

for i: =1 to 10 do begin

for j: =1 to 10 do begin

begin

а[i,j]: = (i+0.5)/(j+sin(j)); {ввод – по формуле}

write (a[i,j], ‘ ‘]) {вывод - таблицей}

епd;

writeln

епd;

епd;

епd.

Не нашли, что искали? Воспользуйтесь поиском: