| ДиМАН | Дата: Четверг, 31.05.2012, 17:39 | Сообщение # 1 |
|
Новичок
Группа: Пользователи
Сообщений: 1
Статус: Offline
| Задачи в приложении картинкой, номер 3 начал делать дальше немогу,
program 3;
var M: array [1..20] of real;
var matrix : array [1..20, 1..20] of real;
a,b,c: real;
i,j:integer;
begin
a:=-20;
for j:=1 to 4 do
for i:=1 to 10 do
begin
matrix[i,j]:=a;
a:=a+1;
end;
writeln (' matrix ');
writeln;
for j:=1 to 4 do
begin
for i:=1 to 10 do
write (matrix[i,j],' ');
writeln;
end;
|
| |
| |
