Ввести двумерный массив A 3x4 . Определить в нем произведение элементов, квадрат которых меньше 16

@Xzin · Регистрация: 18.04.2013

Author24 — интернет-сервис помощи студентам

Ввести двумерный массив A 3x4 . Определить в нем произведение
элементов, квадрат которых меньше 16.

@Midian · 16.05.2013, 11:02

Pascal

uses crt;
var
a: array [1..3,1..4] of integer;
i,j: byte;
p: integer;
begin
for i:=1 to 3 do
begin
for j:=1 to 4 do
begin
a[i,j]:=random(30);
write(a[i,j],' ');
end;
writeln;
end;
p:=1;
for i:=1 to 3 do
for j:=1 to 4 do
if (sqr(a[i,j]) < 16) then
begin
p:=p*a[i,j];
end;
writeln('Произведение = ',p);
end.

@Xzin 1 / 1 / 1 Регистрация: 18.04.2013 Сообщений: 24
		1
	Ввести двумерный массив A 3x4 . Определить в нем произведение элементов, квадрат которых меньше 16 16.05.2013, 10:50. Показов 2568. Ответов 1 Метки нет (Все метки) Ввести двумерный массив A 3x4 . Определить в нем произведение элементов, квадрат которых меньше 16. 0

	16.05.2013, 11:02

Ввести двумерный массив A 3x4 . Определить в нем произведение элементов, квадрат которых меньше 16

Решение