Помогите решить. Заполнить массив из 15 элементов целыми числами от -10 до 30
Приложения:
PRO100D1AS:
Тебе каким методом?
могу кратно но не понятно, или код по больше но все понятно
Мне нужно в паскаль прогу и все
Ответы
Ответ дал:
2
Ответ:
begin
var a:=ArrRandom(15,-10,30); a.Println;
Writeln(a.Where(t->t>0).Average)
end.
Объяснение:
работает на новых версиях паскаля
const
n=15;
var
a:array[1..n] of integer;
i,s:integer;
begin
Randomize;
s:=0;
for i:=1 to n do begin
a[i]:=Random(41)-10;
Write(a[i],' ');
s:=s+a[i]
end;
Writeln;
Writeln(s/n)
end.
n=15;
var
a:array[1..n] of integer;
i,s:integer;
begin
Randomize;
s:=0;
for i:=1 to n do begin
a[i]:=Random(41)-10;
Write(a[i],' ');
s:=s+a[i]
end;
Writeln;
Writeln(s/n)
end.
это более ясный код
:)
Вас заинтересует
2 года назад
2 года назад
8 лет назад
9 лет назад
9 лет назад