Question

Дано 20 чисел найти наибольшее. паскаль. В виде матрицы.

Answer 1

Универ soloBY

Для целочисленной квадратной матрицы найти число элементов, кратных k, и наибольший из этих элементов. (программа Паскаль)

Для целочисленной квадратной матрицы найти число элементов, кратных k, и наибольший из этих элементов.

спросил 1 час назад от cevka в категории ЕГЭ (школьный)

решение вопроса

0

uses crt;

const n=5;

var a:array[1..n,1..n]of integer;

i,j,max,k,t:integer;

begin

clrscr;

randomize;

writeln('Исходный массив');

for i:=1 to n do

begin

for j:=1 to n do

begin

a[i,j]:=random(100);

write(a[i,j]:3);

end;

writeln;

end;

write('K -> ');

readln(k);

max:=-1;

t:=0;

for i:=1 to n do for j:=1 to n do if a[i,j] mod k=0 then

begin

inc(t);

if a[i,j]>max then max:=a[i,j];

end;

write(k);

writeln('MAX=',max);

readln;

end.

Answer 2

Чтобы найти наибольшее число из 20 чисел в Pascal (Паскале) и представить их в виде матрицы, вы можете использовать следующий код:

pascalCopy code
program FindLargestNumber;
const
  Rows = 4; // Количество строк в матрице
  Cols = 5; // Количество столбцов в матрице

type
  Matrix = array[1..Rows, 1..Cols] of Integer;

var
  numbers: array[1..20] of Integer;
  matrix: Matrix;
  i, j, maxNumber: Integer;

begin
  // Вводим 20 чисел
  writeln('Введите 20 чисел:');
  for i := 1 to 20 do
  begin
    readln(numbers[i]);
  end;

  // Заполняем матрицу
  writeln('Матрица:');
  for i := 1 to Rows do
  begin
    for j := 1 to Cols do
    begin
      matrix[i, j] := numbers[(i - 1) * Cols + j];
      write(matrix[i, j]:4);
    end;
    writeln;
  end;

  // Находим наибольшее число
  maxNumber := matrix[1, 1];
  for i := 1 to Rows do
  begin
    for j := 1 to Cols do
    begin
      if matrix[i, j] > maxNumber then
        maxNumber := matrix[i, j];
    end;
  end;

  writeln('Наибольшее число: ', maxNumber);
end.

Программа попросит вас ввести 20 чисел. Затем она заполнит матрицу 4x5 и найдет наибольшее число из них, выводя его на экран.