Ну 50*50=2500Кб,переведи в байты=25000 байт
1)Обязательные
1. Монитор
2)Необязательные
1. Колонки
2.Наушники
3. Принтер
1) 157 х 99 = 15543 (пикселей) - всего
2) 15543 х 4 = 62172 (бита)
Const
handsfree = true;
var
a: array[1..100] of real;
i, n: integer;
sum: real;
begin
{ввод массива}
if handsfree then
n := random(20) + 5
else begin
write('n = ');
readln(n);
end;
writeln('Данные массива:');
for i := 1 to n do
begin
if handsfree then begin
a[i] := random(100) - 50;
write(a[i], ' ');
end
else readln(a[i]);
end;
writeln();
{подсчет суммы и произведения и агригатов}
sum := 0;
for i := 1 to n do
if a[i] < 0 then {если нужен фильтр}
sum := sum + a[i];
writeln('sum = ', sum);
end.
Степень числа.
Например, 1*10^2+4*10^1+3*10^0+5*10^-1
будет записана как 1*
+4*
+3*