Задание:
В вещественной матрице Е(8;12) удалить строку, содержащую наибольший элемент.
Исходный код программы на Delphi:
program matr;
{$APPTYPE CONSOLE}
uses
SysUtils;
var m:array[1..8,1..12] of real;
i,j,k:integer;
max:real;
begin
Randomize;
{ TODO -oUser -cConsole Main : Insert code here }
Writeln('Ichodnaia matrica');
for i:=1 to 8 do
begin
for j:=1 to 12 do
begin
m[i,j]:=random*10.5;
Write(m[i,j]:5:1);
end;
Writeln;
end;
max:=0;
for i:=1 to 8 do
for j:=1 to 12 do
begin
if m[i,j]>max then
begin
max:=m[i,j];
k:=i;
end;
end;
Writeln('Izmenennaya matrica');
for i:=1 to 8 do
begin
for j:=1 to 12 do
begin
if i<>k then
Write(m[i,j]:5:1);
end;
Writeln;
end;
Readln;
end.
Блок схема:
Встретили незнакомое http://specural.com/machine.php? Прочтите определение на сайте |
Главная
Каталог файлов
