// PascalABC.NET 3.0, сборка 1073 const nn=30; mm=30; var a:array[1..mm,1..nn] of integer; m,n,i,j,imax,jmax:integer; begin Writeln('Введите число строк и столбцов массива: '); Read(m,n); Randomize; Writeln('*** Исходный массив ***'); imax:=1; jmax:=1; for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(51)-25; Write(a[i,j]:4); if a[i,j]>a[imax,jmax] then begin imax:=i; jmax:=j end end; Writeln end; for i:=1 to m do a[i,jmax]:=0; for j:=1 to n do a[imax,j]:=0; Writeln('*** Результирующий массив ***'); for i:=1 to m do begin for j:=1 to n do Write(a[i,j]:4); Writeln end end.
var a:array [1..20] of integer; i:integer; begin randomize; for i:=1 to 20 do begin a[i]:=random(19-(-10)+1)+-10; write (a[i],' '); end; end.
Задача №2
var a:array [1..20] of integer; i:integer; begin writeln('Введите числа в интервале [-20;29]'); for i:=1 to 10 do read(a[i]); for i:=1 to 10 do if (a[i]>-29) and (a[i]<20) then write(a[i],' '); end.
Задача №3
var a:array [1..20] of integer; i,sum:integer; begin randomize; sum:=0; for i:=1 to 20 do begin a[i]:=random(19-(-10)+1)+-10; write (a[i],' '); if a[i]>0 then sum:=sum+1; end; writeln('Количество положительных элементов массива = ', sum); end.
Задача №4
var a:array [1..20] of integer; i:integer; begin randomize; for i:=1 to 20 do begin a[i]:=random(19-(-10)+1)+-10; if a[i]<0 then a[i]:=0; write (a[i],' '); end; end.
Задача №5
var a:array [1..20] of integer; i,sum:integer; begin randomize; sum:=0; for i:=1 to 20 do begin a[i]:=random(19-(-10)+1)+-10; write (a[i],' '); if a[i]>0 then sum:=sum+a[i]; end; writeln('Сумма положительных элементов массива = ', sum); end.
const
nn=30;
mm=30;
var
a:array[1..mm,1..nn] of integer;
m,n,i,j,imax,jmax:integer;
begin
Writeln('Введите число строк и столбцов массива: '); Read(m,n);
Randomize;
Writeln('*** Исходный массив ***');
imax:=1; jmax:=1;
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(51)-25;
Write(a[i,j]:4);
if a[i,j]>a[imax,jmax] then
begin imax:=i; jmax:=j end
end;
Writeln
end;
for i:=1 to m do a[i,jmax]:=0;
for j:=1 to n do a[imax,j]:=0;
Writeln('*** Результирующий массив ***');
for i:=1 to m do begin
for j:=1 to n do Write(a[i,j]:4);
Writeln
end
end.
Тестовое решение:
Введите число строк и столбцов массива:
5 8
*** Исходный массив ***
11 -10 -25 -25 -19 -3 -2 0
-24 1 5 -25 -21 -16 -16 -22
-21 -10 -12 7 20 16 0 -10
-13 25 -18 18 -5 9 15 1
-19 -10 -16 9 -11 11 24 -19
*** Результирующий массив ***
11 0 -25 -25 -19 -3 -2 0
-24 0 5 -25 -21 -16 -16 -22
-21 0 -12 7 20 16 0 -10
0 0 0 0 0 0 0 0
-19 0 -16 9 -11 11 24 -19