Дан двумерный массив размерностью 4 на 5.элементы массива создаются случайным образом. промежуток от -70 до 100. найти произведение чисел, заканчивающихся на 3(на языке Паскаль).
Дан двумерный массив размерностью 4 на 5.элементы массива создаются случайным образом. промежуток от -70 до 100. найти произведение чисел, заканчивающихся на 3(на языке Паскаль).
Гость
Ответ(ы) на вопрос:
ГостьVar
a:array[1..4,1..5] of integer;
i,j,p:integer;
Begin
p:=1;
For i:=1 to 4 Do
begin
for j:=1 to 5 do
begin
a[i,j]:=random(-70,100);
write(a[i,j]:4);
if abs(a[i,j] mod 10)=3 then p:=p*a[i,j];
end;
writeln;
end;
Writeln('Ответ: ',p)
End.
Не нашли ответ?
Похожие вопросы