var
a:array [1..20] of integer;
s,i:integer;
begin
randomize;
for i:=1 to 20 do begin
a[i]:=random(101)+100;
write (a[i],' ');
end;
writeln;
s:=0;
for i:=1 to 20 do
if odd(a[i])=false then s:=s+a[i];
writeln (s);
readln;
end.
Компьютеры от компании apple.
Стример- ленточный накопитель, запоминающее устройство на принципе магнитной записи на ленточном носителе, с последовательным доступом к данным,