Var
a: array [1..10] of real;
s: real;
i: integer;
begin
s:= 0;
for i:= 1 to 10 do
begin
writeln('Введите число');
readln(a[i]); //Вводим i-ый элемент массива с клавиатуры
if a[i] > 0 then s:= s + a[i]; {Если введенный элемент >0, то прибавляем к текущему значению s введенный элемент}
end;
writeln('Сумма положительных элементов массива: ', s)
end.
Очень интерестно новые книги!
121(10)=171(8)=1111001(2)=79(16)=121(10)
Ну если допусть что форматирование не изменяет размеры текста, то тогда получиться
50 * 60 * (1 + 0.25) = 3750 (символов)
Теперь остается вопрос какая это будет кодировка
Если кодировка ASCII например, то будет 1 символ = 1 байт
Если же кодировка UTF16, то будет 1 символ = 2 байта
Если например UTF8, туо тут так просто не определишь, бо там от 1 до 4 байт на символ в зависимости от частоты встречаемости, чтобы экономить
Например английские символы - 1 байт, а русские 2 байта