Заполнить двумерный массив nxn случайными числами из интервала [-5; 5] и найти максимальный элемент в каждой строке и поменять его первым элементом этой же строки
Uses crt; const n=5; var a:array[1..n,1..n] of integer; i,j,max,k,j1:integer; begin randomize; for i:=1 to n do for j:=1 to n do a[i,j]:=random(10)-5; for i:=1 to n do begin for j:=1 to n do write(a[i,j]:3); writeln; end; writeln; k:=1; max:=-5; repeat for i:=k to k do for j:=1 to n do if a[i,j]>max then begin max:=a[i,j]; j1:=j;end; a[i,j1]:=a[i,1]; max:=-5; inc(k); until k=n+1; for i:=1 to n do begin for j:=1 to n do write(a[i,j]:3); writeln; end; writeln; end.
Предположим, что это две разные задачи. Окей. 1. Var x : real;Beginreadln(x);if (x<=4) and (x>=0) thenWriteln('Число принадлежит интервалу от 0 до 4')elseWriteln('Число не принадлежит интервалу от 0 до 4');Readln(x);end. // Readln в конце можно не писать, это делается для того, чтобы //программа остановилась и можно было посмотреть результат!
2. Var x : longint;BeginReadln(x);if (x mod 5 = 0) thenWriteln('Число делится на 5!')elseWriteln('Число не делится на 5!');if (x mod 10 = 0) thenWriteln('Число делится на 10!')elseWriteln('Число не делится на 10!');Readln(x);end. // Тут с Readln та же фигня
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 var a:array[1..10] of integer; i,s:integer; begin Randomize; s:=0; for i:=1 to 10 do begin a[i]:=Random(11)+10; Write(a[i],' '); s:=s+a[i]*sqr(a[i]) end; Writeln; Writeln('Сумма кубов ',s); for i:=1 to 10 do begin a[i]:=a[i]-5; Write(a[i],' ') end; Writeln end.
const n=5;
var a:array[1..n,1..n] of integer;
i,j,max,k,j1:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(10)-5;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
writeln;
k:=1;
max:=-5;
repeat
for i:=k to k do
for j:=1 to n do
if a[i,j]>max then begin max:=a[i,j]; j1:=j;end;
a[i,j1]:=a[i,1];
max:=-5;
inc(k);
until k=n+1;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]:3);
writeln;
end;
writeln;
end.