const
N = 20;
var
a: array[1..N] of integer;
i, s: integer;
begin
for i := 1 to N do begin
a[i] := 100 + random(100);
write(a[i], ' ');
if(i mod 2 <> 0) then s := s + a[i];
end;
writeln;writeln;
writeln(s);
end.
Д) 7 - расскрась например зелёным;
г) 6 - синим
в) 14 - красным;
б) 17 или 8 - оранжевым
а) 11 - жёлтым
1. Var a, b, c:real; d:integer;
Begin
Readln(a, b) ;
S:=a*b;
Write(s) ;
End.
2.
Var a, b, c:real; d:integer;
Begin
D:=0;
Readln(a);
If (a>0) then d:=d+1;
Readln(b) ;
If (b>0) then d:=d+1;
Readln(c>0) then d:=d+1;
Write(d);
End.