Var
i, sum: integer;
arr: array[1..10000] of integer;
begin
i := 0;
sum := 0;
repeat
i := i + 1;
readln(arr[i]);
sum := arr[i] + sum;
until (arr[i] = 0);
writeln('Кол-во введённых чисел: ', i - 1);
writeln('Их общая сумма сумма = ', sum);
writeln('Их среднее арифметическое = ', sum / (i - 1));
end.
-10;-9;-8;-7;-6;-5;-4;-3;-2;-1;0;1;2;3;4;5;6;7;8;9;10.
[-10;10]
|-10|=10; |-9|=9; |-8|=8; |-7|=7; |-6|=6; |-5|=5; |-4|=4; |-3|=3; |-2|=2; |-1|=1; |0|=0; |1|=1; |2|=2
Var v:real;
begin
Write('Введите v, v>20,v<200: ');
Readln(v);
while (v<=20)or(v>=220) do
begin
Write('Введите v, v>20,v<200: ');
Readln(v);
end;
writeln('v = ',v);
end.
Пример:
<span>Введите v, v>20,v<200: 15
Введите v, v>20,v<200: 550
Введите v, v>20,v<200: 150
v = 150</span>
1)-горе
2)-страус
3)-кресло
4)-Михаил
5)-Марина