Привет всем. в понедельник экзамен по информатике, а я ничего не ...
Привет всем. в понедельник экзамен по информатике, а я ничего не могу решить. кто нибудь может помочь?задачи:1.Найдите сумму всех элементов одномерного числового массива.2.найдите произведение всех элементов одномерного числового массива.3.найдите количество отрицательных элементов одномерного числового массива.4.найдите количество нечетных элементов одномерного числового массива.5.найдите количество элементов одномерного числового массива <20.6.найдите количество кратных 7 элементов одномерного числового массива.7.найдите сумму элементов одномерного числового массива=8.8.найдите сумму кратных 11 элементов одномерного числового массива.9.найдите сумму чётных элементов одномерного числового массива.10.найдите произведение кратных 3 элементов одномерного числового массива.11.найдите произведение элементов одномерного числового массива >2 и <5.12.вывести на экран элементов одномерного числового массива >15.13.вывеси на экран элементов одномерного числового массива кратных 21.14.вывести на экран четные элементов одномерного числового массива.
Есть ответ
18.12.2022
85
Ответ
1)
var
a:array [1..15] of integer;
s,i:integer;
begin
randomize;
for i:=1 to 15 do begin
a[i]:=random(80)-20;
write (a[i],' ');
s:=s+a[i];
end;
writeln;
writeln ('Summa = ',s);
readln;
end.
2)
vara:array [1..15] of integer;i:integer;
p:longint;beginrandomize;
p:=1;for i:=1 to 15 do begina[i]:=random(26)+5;write (a[i],' ');p:=p*a[i];end;writeln;writeln ('Proizvedenie = ',p);readln;end.
3)
vara:array [1..15] of integer;k,i:integer;beginrandomize;for i:=1 to 15 do begina[i]:=random(90)-50;write (a[i],' ');
if a[i]2) and (a[i]
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
18.12.2022
