Const N = 50;
Var
A:array[1..N] of integer;
i:integer;
S:real;
Begin
Randomize;
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
S:=S+A[i]
End;
WriteLn;
WriteLn('Sr = ',S/N);
End.
Пример:
Исходный массив: 4 2 -2 -4 -7 7 -9 6 -10 10 -4 -4 -5 3 0 -2 -3 0 -4 9 -1 -4 -2 -4 -9 2 2 -10 -8 -2 -8 -7 6 2 -9 7 2 -10 -10 -4 -9 -7 -2 -10 2 1 -3 6 0 0
Sr = -2.04
<u>Задание</u><u> </u><u>1</u>
1). 320-200 = 120
2). 120+50 = 170
Ответ: <em>170</em>
<u>Задание</u><u> </u><u>2</u>
1). 427-222 = 205
2). 405+50 = 255
Ответ: <em>2</em><em>55</em>
<u>Задание</u><u> </u><u>3</u>
1). 245+235 = 440
2). 440-120 = 360
Ответ: <em>360</em>
Uses crt;var a,b:real;beginwriteln('Введите сколько тон вы хотите переплавить');readln(a);b:=(10/18)*a;writeln(b,'Тон получится ');end.