Информатика, опубликовано 09.01.2019 16:01
Написать программы в Паскале ABC
1.Дан массив из N действительных чисел. Определить, является ли этот массив возрастающей последовательностью.
2.(Составить схему алгоритма и программу обработки двумерных массивов)
Матрицу A(n×m) преобразовать в матрицу B, вычеркнув строку и столбец, на пересечении которых расположен минимальный элемент матрицы A.
Ответ оставил: Гость
Const n = 10; begin var a: array[1..n] of real; var i: integer; var growing: boolean; for i : = 1 to n do begin readln(a[i]); end; growing : = true; for i : = 2 to n do begin if a[i] < = a[i - 1] then begin growing : = false; break; end; end; writeln(growing); end. const m = 5; const n = 4; const limit = 100; begin var matrix: array[1..m] of array[1..n] of real; var matrixb: array[1..m - 1] of array[1..n - 1] of real; var row, col, rb, cb, lowest_row, lowest_col: integer; var lowest: real; var p: boolean; lowest : = limit; for row : = 1 to m do begin for col : = 1 to n do begin matrix[row][col] : = random(limit - 1); if matrix[row][col] < lowest then begin lowest : = matrix[row][col]; lowest_col : = col; lowest_row : = row; end; write(matrix[row][col], ' '); end; writeln(''); end; writeln(''); writeln(lowest); writeln(''); rb : = 1; for row : = 1 to m do begin p : = false; cb : = 1; for col : = 1 to n do begin if (not (col = lowest_col)) and (not (row = lowest_row)) then begin p : = true; matrixb[rb][cb] : = matrix[row][col]; cb : = cb + 1; end; end; if p then begin rb : = rb + 1; end; end; for rb : = 1 to m - 1 do begin for cb : = 1 to n - 1 do begin write(matrixb[rb][cb], ' '); end; writeln(''); end; end.
Ответ оставил: Гость
Program pr;
var a:array [1..10] of integer
i, imax, imin, mx, mn, n:integer;
begin
for i := 1 to 10 do
a[i] := random(50);
mx := a[1];
for i := 2 to 10 do
begin
if a[i] > mx then
begin
mx := a[i];
imax := i
end;
end;
mn := a[0];
for i := 2 to 10 do
begin
if a[i] < mn then
begin
mn := a[i];
imin := i
end;
end;
a[imax] := mn;
a[imin] := mx
writeln(a);
end.
var a:array [1..10] of integer
i, imax, imin, mx, mn, n:integer;
begin
for i := 1 to 10 do
a[i] := random(50);
mx := a[1];
for i := 2 to 10 do
begin
if a[i] > mx then
begin
mx := a[i];
imax := i
end;
end;
mn := a[0];
for i := 2 to 10 do
begin
if a[i] < mn then
begin
mn := a[i];
imin := i
end;
end;
a[imax] := mn;
a[imin] := mx
writeln(a);
end.
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01
Информатика, опубликовано 09.01.2019 16:01