Матрицы. Тексты программ: различия между версиями
Материал из Вики проекта PascalABC.NET
Перейти к навигацииПерейти к поиску
Mikst (обсуждение | вклад) (→Ссылки) |
Mikst (обсуждение | вклад) |
||
| Строка 12: | Строка 12: | ||
for var j:=1 to N do | for var j:=1 to N do | ||
a[i,j] := Random(100); | a[i,j] := Random(100); | ||
writeln('Элементы матрицы: '); | writeln('Элементы матрицы: '); | ||
for var i:=1 to M do // Вывод | for var i:=1 to M do // Вывод | ||
| Строка 21: | Строка 22: | ||
end. | end. | ||
</source> | </source> | ||
===Перемена местами двух строк=== | ===Перемена местами двух строк=== | ||
===Поиск минимумов в строках=== | ===Поиск минимумов в строках=== | ||
Версия от 00:27, 8 января 2010
Заполнение матрицы случайными числами и вывод
const
SzM = 10;
SzN = 10;
var a: array [1..SzM,1..SzN] of integer;
begin
var M := 4;
var N := 5;
for var i:=1 to M do // Заполнение
for var j:=1 to N do
a[i,j] := Random(100);
writeln('Элементы матрицы: ');
for var i:=1 to M do // Вывод
begin
for var j:=1 to N do
write(a[i,j]:4);
writeln;
end;
end.
