Склавиатуры вводятся целые числа признаком конца ввода является 0. найти сумму тех чисел среди введённых, которое больше 10

Var   sum,n: integer; beginn: =1; while(n< > 0) do beginreadln(n); if(n> 10) thensum: =sum+n; end; writeln(sum); readln; end.

1) 54525952 (байт) / 2048 = 26624 (байт) - это количество байт в одной группе

2) 26624 (байт) = 212992 (бит) - делем на 8 т.к. в 1 байте 8 бит

3) 212992 (бит) / 16384 = 13 (бит) - столько весит 1 символ.

следующие действие берутся из: 2 ^ бит > = количество символов

4) (2 ^ (13-1)) + 1 = 4097 - это минимальное колличество различных символов.

5) 2 ^ 13 = 8192 - максимальное количество различных символов.

ответ:

                          различных символов в используются от 4097 до 8192.

я не понял по каким числам оно должно работать, ты пишешь при вводе 4 целых чисел а потом протестировать на что ты имешь

если что то не так то поменяй тип с integer на real.

program zadacha_1; const   n = 4; var  arr : array [1..n] of integer;   i, sum : integer; begin  sum : = 0;   for i : = 1 to n do  begin      writeln('введите значение ', i, ' элемента.');       read(arr[i]);       sum : = sum + arr[i];   end;   writeln('ср. арифмитическая сумма равна: ', sum/n); end.