Возможно это объем который помещается на листе
Var k, m : integer;
Dat: array[1..10] of integer;
Begin
for k:=1 to 10 do
Readln (Dat[k]);
m := 0;
for k := 1 to 10 do;
if Dat[k]>m then
begin
m := Dat[k]
end;
writeln(m);
End.
Может CTRL+f3 и в какой программе? В разных прогах м.б. разное
#include <iostream>
using namespace std;
/* Язык С++.
* Запрашиваем у пользователя неопределенное количество целых чисел
* пока не введёт значение = 0
* посчитать количество элементов введенных пользователем кратных 5,
* а также вывести номер первого элемента, введенного пользователем значения = 5.
* Ноль не учитывается (если 5 нет, то номер = 0)
* Использовать do, while
*/
int main()
{
int n, c5 = 0, i = 1, i5 = 0;
bool found5 = false;
do {
cout << "Число: ";
cin >> n;
if (n == 0) break;
else if (n % 5 == 0) {
c5++;
if (i5 == 0) {
i5 = i;
}
}
i++;
} while (true);
cout << "Количество чисел, кратных 5: " << c5 << endl;
cout << "Номер первого элемента, кратного 5: " << i5 << endl;
return 0;
}
Program pr;
Var a:array[1..20] of integer;
i,sum:integer;
sr:real;
Begin
for i:=1 to 20 do a[i]:=random(100);
for i:=1 to 20 do Write(a[i],';');
sr:=0;
for i:=1 to 10 do sr:=sr+a[i];
sr:=sr/10;
sum:=0;
for i:=11 to 20 do sum:=sum+a[i];
Writeln;
Writeln('srednee=',sr);
Writeln('summa=',sum);
end.