Неправильно написан поиск минимального и максимального элементов:
Program j;
uses crt;
const n=10;
var a: array [1..n] of integer;
i,min,max:integer;
begin
min:=1; max:=1;
Writeln ('Введите элементы массива');
For i:=1 to n do
Begin
Write ('a[',i: 2,']=');
Readln(a[i]);
End;
Writeln ('Контрольный вывод массива: ');
For i:=1 to n do
Writeln('a[',i:2,']=',a[i]:4);
for i:=1 to n do
begin
if a[i]>a[max] then max:=i;
if a[i]<a[min] then min:=i;
end;
writeln('Максимальный элемент массива ',a[max],' под номером ',max);
writeln('Минимальный элемент массива ',a[min],' под номером ',min);
end.
Выделенное жирным шрифтом - исправленный вариант.
Теперь программа корректно ищет и минимальный и максимальный элементы, при том проходя массив полностью, а не до первого совпадения, как было в исходной версии.
1) 2304 КБайт
2) 5625 КБайт, видеокарта на 64 МБайт
3) 112,5 МБайт
Объяснение:
Задача 1:
16 777 216 = 2^i, i = 24
I = 1024 * 768 * 24 = 2^10 * 3 * 2^8 * 24 битов =
= 72 * 2^18 битов = 72 * 2^15 байтов = 72 * 2^5 Кбайт = 72*32 КБайт =
= 2304 КБайт
Задача 2:
16 777 216 = 2^i, i = 24
I = 1600 * 1200 * 24 = 100 * 2^4 * 75 * 2^4 * 24 битов =
= 25 * 2^2 * 2^4 * 75 * 2^4 * 3 * 2^3 битов = 25*75*3* 2^13 битов = 5625* 2^10 байтов = 5625* 2^0 Кбайт = 5625 КБайт ≈ 5,5 МБ
Подойдет видеокарта на 64 Мбайт.
Задача 3:
75 Гц, значит в одной секунде 75 кадров.
Объем данных, передаваемых в секунду от видеопамяти к монитору:
75 * 16 * 1024 * 768 = 75 * 2^4 * 2^10 * 3 * 2^8 = 225 * 2^22 битов =
= 225 * 2^19 байт = 225 * 2^9 КБайт = 112,5 * 2^10 КБайт = 112,5 * 2^0 МБайт = 112,5 МБайт
Объяснение:
Ошибок нет