На C++:
#include <iostream>
using namespace std;
int main()
{
int count=1, min=30001, val;
do
{
cin >>val;
if(val>30000) val-=30000;
if((val<min) && (val>0)) min=val;
if(count<1000) ++count;
} while(val>0);
cout <<"Минимальный элемент: " <<min;
return 0;
}
В предложении 51 символ считая с пробелами
51*16=816 бит
ответ 1) 816 бит
const n=10;
var a:array[1..n] of integer;
i,r: integer;
begin
write (' Исходный массив: ');
for i:=1 to n do
begin
a[i]:=random(41)-20;
write (a[i]:3,' ')
end;
writeln;
write ('Введите число: ');
readln (r);
write ('Преобразованый массив: ');
for i:=1 to n do
begin
if abs(a[i]) <= r then a[i]:=a[i]*a[i];
write (a[i]:3,' ')
end
end.
150 ЭТО 1200 БИТ
20*30=600
600 ЭТО 4800 БИТ
1200*4800=5 760 000 БИТ
ОТВЕТ В БАЙТАХ: 90 000 БАЙТ