Из p чисел введеных на клавиатуре вычислить сумму чисел больше 7 и кратных 3 введенныъ под нечетными номерами. Паскаль, 9 класс

1

Ответы и объяснения

2014-02-26T09:01:24+04:00
Var 
a: array[1..100] of integer; 
p, i: byte; 
sum: integer;
begin
write('Введите количество чисел: ');
readln(p);
if (p <= 0) or (p > 100) then 
begin   
Writeln('Ошибка! 100 < p < 0!');   
exit; 
end;
sum:=0;
for i:=1 to p do 
begin   
write('Число ', i, ': ');   
readln(a[i]);   
if (a[i] > 7) and (a[i] mod 3 = 0) and (i mod 2 <> 0) then sum:=sum+a[i]; 
end; 
Writeln('Сумма = ', sum:5);
end.