матрица заполняется случайно
программа на pascalabc
Var
max,min,mina,minb,maxa,maxb,a,b,c: integer;
mas: array[1..3,1..3] Of integer;
Begin
writeln('до :');
For a:=1 To 3 Do
For b:=1 To 3 Do
Begin
mas[a,b] := random(100);
If mas[a,b]>max Then
Begin
max := mas[a,b];
maxa := a;
maxb := b;
End;
If (min=0)Or(mas[a,b]<min) Then
Begin
min := mas[a,b];
mina := a;
minb := b;
End;
write(mas[a,b],' ');
End;
c := mas[maxa,maxb];
mas[maxa,maxb] := mas[mina,minb];
mas[mina,minb] := c;
writeln;
writeln('после :');
For a:=1 To 3 Do
For b:=1 To 3 Do
write(mas[a,b],' ');
…И снилось мне, что мы, как в сказке,
Шли вдоль пустынных берегов
Над диким синим лукоморьем,
В глухом бору, среди песков.
Был летний светозарный полдень,
Был жаркий день, и озарен
Веет, лес был солнцем, и от солнца
Веселым блеском напоен.
Узорами ложились тени
На теплый розовый песок,
И сипни небосклон над бором
Был чист и радостно-высок.
Играл зеркальный отблеск моря
В вершинах сосен, и текла
Вдоль по коре, сухой и жесткой,
Смола, прозрачнее стекла...
Мне снилось северное море,
Лесов пустынные края...
Мне снилась даль, мне снилась сказка –
<span>Мне снилась молодость моя.</span>
<span>Program 1;</span>
<span>Var i, dlina, shirina, visota, </span><em>N</em><span>, S, V : Integer;</span>
BEGIN
WriteLn(’Введите число залов‘);
ReadLn (N);
for<span> i:=1 </span>to<span> </span><em>N</em><span> </span>do<span> </span>begin
<em />WriteLn(’Введите длину,ширину и высоту зала‘);
<span>ReadLn (dlina, shirina, visota);</span>
<span>S:=dlina*shirina;</span>
<span>V:=S*visota; </span>
<span>WriteLn(‘</span>Площадь пола=<span>’,S,’ </span>Объем зала=<span>‘,V);</span>
end
END.
если это 8-9 класс, то должно быть так)))