Const N = 21;
Var
A:array[1..N] of integer;
i,k:integer;
S:real;
Begin
randomize;
S:=0;
k:=0;
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(80)-44;
Write(A[i],' ');
if A[i]<=12 then
Begin
S:=S+A[i];
k:=k+1
End;
End;
WriteLn;
WriteLn('Sr = ',S/k)
End.
Program n1;
var a: array[1..10] of integer;
k,kol,i: integer;
begin
randomize;
write('k=');
readln(k);
kol:=0;
write('исходный массив: ');
for i:=1 to 10 do
begin
a[i]:=random(21)-10;
write(a[i],' ');
if (a[i]<0) and (a[i]<k) then kol:=kol+1;
end;
writeln;
writeln('кол-во эл меньше ',k,': ',kol);
end.
яблоня-ствол, корень,ветка-яблоко-семечко
адрес: яблоня, ветка,яблоко.
Легко видеть, что элементы второй строки имеют значение, равное удвоенному значению соответствующих элементов первой строки, увеличенному на единицу.
Поэтому, если в первой строке
1 2 3
то во второй
<em>3 5 7</em>
Program p1;
var n, i: integer;
begin
WriteLn('Введите n');
ReadLn(n);
for i := 1 to n do
WriteLn(i);
end.
===============
program p2;
var n, i: integer;
begin
WriteLn('Введите n');
ReadLn(n);
for i := n downto 1 do
WriteLn(i);
end.
===============
program p3;
var n, i: integer;
begin
WriteLn('Введите n');
ReadLn(n);
for i := 1 to n do
if i mod 3 = 0 then WriteLn(i);
end.
===============
program p4;
var n, i: integer;
begin
i := 1;
WriteLn('Введите n');
ReadLn(n);
while i <= n do
begin;
if i mod 3 = 0 then WriteLn(i);
i := i + 1;
end;
end.
===============
program p5;
var n, i: integer;
begin
WriteLn('Введите n');
ReadLn(n);
for i := 1 to n do
if i mod 2 = 0 then WriteLn(i);
end.
===============
program p6;
var n, i: integer;
begin
i := 1;
WriteLn('Введите n');
ReadLn(n);
while i <= n do
begin;
if i mod 2 = 0 then WriteLn(i);
i := i + 1;
end;
end.