Const
n = 10;
var
a: array[1..n] of integer;
i: integer;
begin
Write('Элементы массива: ');
for i := 1 to n do
begin
if (i mod 2) = 0 then a[i] := 3 * i else a[i] := i;
Write(a[i]:3)
end
end.
Тестовое решение:
Элементы массива: 1 6 3 12 5 18 7 24 9 30
Если актуально через 15 минут бун
Понятность,обьективность,полнота
Сначала переводим 20(Кб) в биты для этого 20*1024*8=163840(бит) потом определим количество символов 163840/16=10240 найдем количество строк 10240/64=160 и наконец находим число страниц 160/40=4. Ответ: 4 страницы.
Const n=10;
var A : Array [1..10] of integer;
i, mini, maxi, min,max, c,k: integer;
begin
for i := 1 to n do
begin
A[i] := random(10);
write(' ',A[i]);
end;
maxi:=1;
mini:=1;
For i:=1 to n do
begin
min:=A[1];
If A[i]>max then
begin
max:=A[i];
maxi:=i;
end;
If A[i]<min then
begin
min:=A[i];
mini:=i;
end;
c:=A[maxi];
A[maxi]:=A[mini];
A[mini]:=c;
end;
Writeln;
for i:=1 to n do
begin
Write(' ',a[i]);
end;
Writeln;
for i:=1 to n do
begin
If a[i]>4 then
begin
a[i]:=4;
inc(k);
end;
Write(' ',a[i]);
end;
Writeln;
Write('Количество: ',k);
<span>end.</span>