Program gt;
var a:array[1..6]of integer;
i,s:integer;
begin
randomize;
s:=0;
for i:=1 to 6 do
begin
a[i]:=random(101)+20;
write(a[i],' ');
s:=s+a[i];
end;
writeln;
writeln(s);
end.
Program abc;
var a, b, c, max: integer;
begin
read (a, b, c);
if a>b then
a:=max
else
b:=max;
if c>max then
c:=max;
writeln ('Максимальное число__', max);
end.
Второй в один вопрос еще))0).
2.
Подходят под № 2) и 4)
3.
<span>4) С:\Красная книги\Евразия\Россия\Ростения_степей.doc</span>
4/
<span>В ячейке B2
формула =D1</span><span>
</span>
1101100
573
1C9
11001100
242
C7
10111
1114
430
240