1) A: array[1..10] of real;
2) A: array[-11..8] of real;
3) A: array[1..20] of integer;
4) A: array[-10..10] of integer;
Uses Crt;
Var
A:array[1..256] of integer;
i,iMin,N,B:integer;
Begin
ClrScr;
Randomize;
Write('N = ');ReadLn(N);
Write('A(',N,'):');
iMin:=1;
For i:= 1 to n do
Begin
A[i]:=random(21)-10;
Write(' ',A[i]);
if A[i] < A[iMin] then iMin:=i;
End;
WriteLn;
WriteLn('Min(A) = ',A[iMin],'[',iMin,']');
Write('Min = ');ReadLn(i);
B:=A[i];
A[i]:=A[iMin];
A[iMin]:=B;
Write('A(',N,'):');
For i:= 1 to n do
Write(' ',A[i]);
ReadKey
End.
Ответ:
Пусть а - глубина цвета, k - кол-во цветов, v - объем.
V = M*N*a
V= (800*480*24)/(8*800*800)= (рассчитаешь) мб
Var a,a1,a2,a3: integer;
begin
write ('Введите трехзначное число: '); read (a);
a1:=a div 100 mod 10;
a2:=a mod 100 div 10;
a3:=a mod 10;
writeln ('Полученное число: ',a3,a1,a2);
end.