помогите решить задачи по информатике через паскаль
1)Массив А вводится с клавиатуры. Найти сумму его элементов . Размер произвольный
2)Найти произведение элементов , кратных 3 в массиве заданном датчиком случайных чисел на интервале (-28,27). Размер произвольный
1)Массив А вводится с клавиатуры. Найти сумму его элементов . Размер произвольный
2)Найти произведение элементов , кратных 3 в массиве заданном датчиком случайных чисел на интервале (-28,27). Размер произвольный
More Questions From This User See All
Answers & Comments
const n=10;
var a:array[1..n] of integer;
i,p:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(56)-28;
write(a[i]:4);
end;
writeln;
p:=1;
for i:=1 to n do
if a[i] mod 3 = 0 then p:=p*a[i];
if p<>1
then writeln('p = ',p)
else writeln('В массиве нет элементов, кратных 3');
end.
Пример:
1 -28 12 -10 -17 -3 16 -16 8 -14
p = -36
Verified answer
1) const N=3; // количество элементов в массивеvar A:array[1..N] of integer; i,s:integer;
BEGIN
for i:=1 to N do
readln (a[i]);
s:=0;
for i:=1 to N do
s:= s+a[i];
writeln ('Сумма элементов массива ',s);
END.