Двумерный массив. Найти произведение тех элементов, которые кратны заданному

@greatmax · Регистрация: 14.05.2012

задача :дана матрица A (N*L) найти произведение тех её элементов которые кратны L.

мой код :

Pascal

const n=9;
l=3;
var a:array [1..n,1..l] of integer;
i,j,s:integer;
begin
for i:=1 to n do
for j:=1 to l do
a[i,j]:=random(100);
writeln ('дан массив');
for i:=1 to n do
begin
for j:=1 to l do
write (a[i,j]:3);
writeln;
end;
begin
if a[i] mod L = 0 then s:=s*a[i]
end;
writeln;
writeln ('произведение чисел кратных L',s);
readln;
end.

пишет несовпадение типов (type mismatch) и всё указывает на данный кусок: 16-18 строки

(подчеркивает знак "="). помогите исправить ошибку пожалуйста

@Pacan1 · 14.05.2012, 20:08

Сообщение от greatmax

if a[i] mod L = 0 then s:=s*a[i]

в этой строке ты работаешь с одномерными массивами, а по условию надо с двумерными. Поэтому и ошибка

@greatmax · 14.05.2012, 20:13 **[ТС]**

ну точно блин два часа в код туплю)))))спасибо понял))

@CodeR · 14.05.2012, 20:15

и для того чтобы перемножать надо для начала s:=1 иначе всегда 0 будет

@Pacan1 · 14.05.2012, 20:15

Сообщение от Artem7

и для того чтобы перемножать надо для начала s:=1 иначе всегда 0 будет

и цикл надо еще запустить

@greatmax · 14.05.2012, 20:16 **[ТС]**

спасибо парни очень выручили

@Pacan1 50 / 50 / 39 Регистрация: 06.12.2011 Сообщений: 237
	14.05.2012, 20:08	2
	Сообщение от greatmax if a[i] mod L = 0 then s:=s*a[i] в этой строке ты работаешь с одномерными массивами, а по условию надо с двумерными. Поэтому и ошибка 1

@greatmax 1 / 1 / 1 Регистрация: 14.05.2012 Сообщений: 15
	14.05.2012, 20:13 [ТС]	3
	ну точно блин два часа в код туплю)))))спасибо понял)) 0

@CodeR Фрилансер 3417 / 2814 / 3000 Регистрация: 08.02.2012 Сообщений: 8,512 Записей в блоге: 1
	14.05.2012, 20:15	4
	и для того чтобы перемножать надо для начала s:=1 иначе всегда 0 будет 1

@Pacan1 50 / 50 / 39 Регистрация: 06.12.2011 Сообщений: 237
	14.05.2012, 20:15	5
	Сообщение от Artem7 и для того чтобы перемножать надо для начала s:=1 иначе всегда 0 будет и цикл надо еще запустить 0

@greatmax 1 / 1 / 1 Регистрация: 14.05.2012 Сообщений: 15
	14.05.2012, 20:16 [ТС]	6
	спасибо парни очень выручили 0

Опции темы