Паскаль,! в числовом массиве из 10 элементов, заданных случайным образом от -100 до 500. найти: 1) сумму положительных элементов, стоящих на чётных местах; 2) произведение элементов массива, кратных 3 и стоящих на нечётных местах;
111
449
Ответы на вопрос:
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.
Популярно: Информатика
-
dfhjkgftg35720.09.2021 14:20
-
leon8823.12.2022 20:27
-
madinakz118.03.2023 13:21
-
гот1203.02.2022 03:46
-
MyNyanKet24.09.2020 20:03
-
costa174rus25.01.2023 13:19
-
sviridovakatya806.04.2020 13:18
-
madinatrtyakov01.06.2023 06:01
-
vabimGogolev20.01.2020 10:52
-
гот1208.01.2021 14:26