16 цветов = 4 бита на пиксель.
640*480 = 307200 пикселей на экране.
307200*4 = 1228800 бит информации, делим на 8 = 153600 байт, делим на 1024 = 150 Килобайт
Вот в таком виде работает, чуть поправил список
в операторах writeln
program example;
var
t,n:integer;
begin
n:=1;
t:=3;
writeln('t','n':6);
while t<26 do
begin
n:=n+2;
writeln(t,n:6);
t:=t+3
end
end.
t n
3 3
6 5
9 7
12 9
15 11
18 13
21 15
24 17
1)700*1024=716800Кбайт
2)716800:2048=350 учебников
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
var a:=SeqGen(10,i->i+8,1).ToArray; a.Println;
a:=a.Select((x,i)->(i.IsOdd?2*x:x)).ToArray; a.Println;
end.
<u><em>Тестовое решение:</em></u>
9 10 11 12 13 14 15 16 17 18
9 20 11 24 13 28 15 32 17 36
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
var a:=ArrRandom(20,-55,120); a.Println;
Writeln('Кол-во отрицательных равно ',a.Where(x->x<0).Count)
end.
<u><em>Тестовое решение:</em></u>
-9 33 -42 -52 102 38 11 -35 51 86 -20 17 66 21 51 37 40 -49 -20 84
Кол-во отрицательных равно 7
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
var b:=ReadArrInteger('7 чисел:',7);
var i:=b.IndexMin;
Writeln('Минимальный элемент B[',i+1,']=',b[i])
end.
<u><em>Тестовое решение:</em></u>
7 чисел: 23 15 -13 26 -8 4 0
Минимальный элемент B[3]=-13
// PascalABC.NET 3.1, сборка 1213 от 04.04.2016
begin
var a:=ReadArrInteger('12 чисел:',12);
Swap(a[4],a[11]); a.Println
end.
<u><em>Тестовое решение:</em></u>
12 чисел: 4 7 -3 0 4 6 4 -5 -11 3 5 13
4 7 -3 0 13 6 4 -5 -11 3 5 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>