1. Даны целые числа b1, b2, ..., b10. Выяснить:
а) верно ли, что сумма тех из них, которые больше 20, превышает 100;
б) верно ли, что сумма тех из них, которые меньше 50, есть четное число.
uses crt;
var b:array [1..10] of integer; i,s1,s2:integer;
begin
clrscr;
for i:=1 to 10 do
begin
Randomize;
b[i]:=random(100);
end;
s1:=0; s2:=0;
if b[i]>20 then s1:=s1+b[i]; if s1>100 then writeln (a)verno)else writeln (a)ne verno);
if b[i]<50 then s2:=s2+b[i]; if s2 mod 2=0 then writeln (á)verno)else writeln (b)ne verno);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
