Решение смотрите во вложении
Program prog;
uses crt;
var a: array [1..30] of integer;
i: integer;
begin
clrscr;
for i:=1 to 30 do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to 30 do
begin
if (abs(a[i]) mod 10)+ (abs(a[i]) div 10) < 10 then
write (a[i], ' ');
end;
end.
Я в этом не особый спец но я думаю что произодительность увеличится в шесть раз
Ответ:
Данные - это информация для хранения или обработки. Программа - это способ обработки данных
256 * 5 * 64 = 81 920 бит = 10 240 байт = 10 килобайт
один символ = 5 бит