Ответы
Ответ дал:
0
const n = 6;
var
a: array[1..n] of integer;
i, s: integer;
begin
for i := 1 to n do begin
a[i] := random(20);
s := s + a[i];
write(a[i], ' ');
end;
writeln;
writeln('Среднее арифметическое эл. массива: ', s / n);
end.
Ответ дал:
0
Program Tanina_domashka;
i:byte;
summa:integer;
o:array[1..6] of integer;
Begin
Writeln('Массив');
For i:=1 to 6 do
Begin
o[i]:=random(1001)-500;
Writeln('Элемент массива №',i,' = ',o[i]);
End;
For i:=1 to 6 do
summa:=summa+o[i];
Writeln('Среднее арифметическое элементов массива = ',summa/6);
End.
Вас заинтересует
1 год назад
1 год назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
9 лет назад
9 лет назад