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.

Объяснение: