2)
const n = 6;
var
a: array[1..n] of integer;
i, s: integer;
begin
s := 1;
for i := 1 to n do begin
a[i] := random(5);
write(a[i], ' ');
if(a[i] > 1) then s := s * a[i];
end;
writeln;
writeln('Произведение эл. > 1 : ', s);
end.
3)
const n = 8;
var
a: array[1..n] of integer;
i, max: integer;
begin
for i := 1 to n do begin
a[i] := 100000 + random(10000);
write(a[i], ' ');
if(a[i] > max) then max := a[i];
end;
writeln;
writeln('Наибольшее кол-во населения: ', max);
end.
3) 1. Paint
2. Microsoft Word
4) 1. Толщина
2. Фигуры
5) 1. Фигуры
2. Заливка
3. Ластик
.ico - формат для значков.
Var a,n,i: integer;
begin
write('n = ');
readln(n);
a:=1;
for i:=1 to n div 3 do a:=2*a;
writeln('a = ',a);
end.
Пример:
<span>n = 7
a = 4</span>
Pascal
const n = 10; //Кол-во студентов
//можно сделать с вводом с клавиатуры
var i,a : integer;
o : array[2..5] of integer;
begin
randomize;
for i :=2 to 5 do
o[i] := 0;
for i := 1 to N do
begin
a := 2 + random(4);
o[a] := o[a] +1;
end;
for i := 2 to 5 do
writeln (i,'=',o[i]);<span>
end.</span>