Написать программы в Паскале ABC1.Дан массив из N реальных чисел. Определить,
Написать программки в Паскале ABC
1.Дан массив из N реальных чисел. Найти, является ли этот массив вырастающей последовательностью.
2.(Составить схему метода и программку обработки двумерных массивов)
Матрицу A(nm) преобразовать в матрицу B, вычеркнув строку и столбец, на скрещении которых размещен минимальный элемент матрицы A.
1 ответ
Данил Крамаров
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] lt;= 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] lt; 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.
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] lt;= 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] lt; 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.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
Облако тегов