На паскале
Задание: Сформировать одномерный массив из 8-ми элементов. Значение элементов массива ввести с клавиатуры. Найти произведение положительных элементов массива.
Задание: Сформировать одномерный массив из 8-ми элементов. Значение элементов массива ввести с клавиатуры. Найти произведение положительных элементов массива.
More Questions From This User See All
Answers & Comments
const n = 8;
var a:array[1..n] of integer;
s,i:integer;
begin
s:=1;
for i:=1 to n do begin
readln(a[i]);
if a[i] > 0 then s:=s*a[i];
end;
writeln(s);
end.