Question

Написать 2 программы на языке Pascal: Дан целочисленный двумерный массив, размерности n х m. Найти количество элементов кратных 6 Дан целочисленный двумерный массив, размерности n х m. Вывести на экран элементы, которые являются квадратами какого-либо числа.

Answer 1

Ответ:

1)const

 nmax=100;

var

 a: array[1..nmax] of integer;

 n,i,h: integer;

begin

 write('Сколько элементов в массиве? ');

 readln(n);

 h:=0;

 writeln('Массив:');

 for i:=1 to n do

 begin

   a[i]:=random(99)+1;

   write(a[i],' ');

   if (a[i] mod 6=0) then h:=h+1;

 end;

 writeln;

 writeln('В массиве ',h,' элементов, кратных 6');

end.

2)const

 n = 10;

 numbers : array [1..n] of integer = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10);

var  

 i : integer;

 z : real;

begin

 writeln('данные числа:');

 for i := 1 to n do

   write(numbers[i] : 4);

 writeln;

 writeln('числа которые являются квадратами:');

 for i := 1 to n do

 begin

   z := trunc(sqrt(numbers[i]));    

   if z * z = numbers[i] then write(numbers[i] : 4)

 end  

end.

Объяснение:

Answer 2

Конечно, вот две программы на языке Pascal:

Программа 1: Найти количество элементов, кратных 6, в целочисленном двумерном массиве.

pascalCopy code
program CountMultiplesOfSix;
var
  n, m, i, j, count: integer;
  arr: array of array of integer;
begin
  write('Введите количество строк (n): ');
  readln(n);
  write('Введите количество столбцов (m): ');
  readln(m);

  // Инициализация массива
  SetLength(arr, n, m);

  // Заполнение массива случайными числами (для примера)
  randomize;
  for i := 0 to n - 1 do
    for j := 0 to m - 1 do
      arr[i][j] := random(100); // Здесь 100 - верхняя граница случайных чисел

  // Подсчет элементов, кратных 6
  count := 0;
  for i := 0 to n - 1 do
    for j := 0 to m - 1 do
      if arr[i][j] mod 6 = 0 then
        count := count + 1;

  writeln('Количество элементов, кратных 6: ', count);
end.

Программа 2: Вывести элементы, которые являются квадратами какого-либо числа.

pascalCopy code
program PrintSquareElements;
var
  n, m, i, j: integer;
  arr: array of array of integer;
begin
  write('Введите количество строк (n): ');
  readln(n);
  write('Введите количество столбцов (m): ');
  readln(m);

  // Инициализация массива
  SetLength(arr, n, m);

  // Заполнение массива случайными числами (для примера)
  randomize;
  for i := 0 to n - 1 do
    for j := 0 to m - 1 do
      arr[i][j] := random(100); // Здесь 100 - верхняя граница случайных чисел

  writeln('Элементы, которые являются квадратами какого-либо числа:');
  for i := 0 to n - 1 do
    for j := 0 to m - 1 do
      if sqrt(arr[i][j]) = trunc(sqrt(arr[i][j])) then
        writeln('arr[', i, '][', j, '] = ', arr[i][j]);
end.

Обратите внимание, что эти программы создают и заполняют массив случайными числами для примера. Вы можете изменить их, чтобы использовать свои собственные данные.