Const
n = 5;
var
arr: array [1..n] of integer;
i, N1, sum: integer;
begin
write('N = ');
readln(N1);
for i := 1 to n do
begin
write('A[', i, '] = ');
readln(arr[i]);
end;
i := 1;
sum := 0;
while (sum <= N1) and (i <= n) do
begin
sum := sum + arr[i];
i := i + 1;
end;
if sum > N1 then
writeln(sum)
else
writeln('Summa not grether then N');
end.
Ответ:
1875 Кбайт
Объяснение:
Объем видеопамяти = 2*16*800*600 бит = 4*800*600 байт = 1875 Кбайт
Ну в общем нужно найти в двухмерном массиве А 10 наименьших элементов и запихнуть их в массив M, а также найти для каждого из этих 10 элементов сумму координат в массиве А и запихнуть ее в массив S...