В двумерном массиве вычислить произведение элементов каждой строки

@dima3452 · Регистрация: 22.04.2013

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

Помогите решить задачку!
Условие:
В двумерном массиве вычислить произведение элементов каждой строки.

@Joker_vad · 02.07.2013, 12:15

Pascal

Program primer;
uses crt;
var
i,j:integer;
a:array [1..40,1..40] of integer;
pr:integer;
begin
randomize;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
a[i,j]:=random(10);
write(a[i,j],' ');
end;
writeln;
end;
pr:=1;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
pr:=pr*a[i,j];
end;
writeln('Произведение ',i,'-ой строки = ',pr);
pr:=1;
end;
readln;
end.

@dima3452 0 / 0 / 0 Регистрация: 22.04.2013 Сообщений: 25
		1
	В двумерном массиве вычислить произведение элементов каждой строки 02.07.2013, 11:52. Показов 5046. Ответов 1 Метки нет (Все метки) Помогите решить задачку! Условие: В двумерном массиве вычислить произведение элементов каждой строки. 0

	02.07.2013, 12:15

Опции темы

В двумерном массиве вычислить произведение элементов каждой строки

Решение