Паскаль,помогите!!! В числовом массиве из 10 элементов, заданных ...
Паскаль,помогите!!!
В числовом массиве из 10 элементов, заданных случайным образом от -100 до 500. Найти: 1) сумму положительных элементов, стоящих на чётных местах; 2) произведение элементов массива, кратных 3 и стоящих на нечётных местах;
Есть ответ
18.12.2022
455
Ответ
uses crt;
var
a:array [1..10] of integer;
s,p,i:integer;
begin
clrscr;
randomize;
for i:=1 to 10 do begin
a[i]:=random(601)-100;
write(a[i],' ');
end;
s:=0;
p:=1;
writeln;
for i:=1 to 10 do begin
if (a[i]>0) and (odd(i)=false) then s:=s+a[i];
if (a[i] mod 3 = 0) and (odd(i)=true) then p:=p*a[i];
end;
writeln ('s = ',s);
writeln ('p = ',p);
readln;
end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
18.12.2022