Предмет: Информатика,
автор: Аноним
Помогите решить. Заполнить массив из 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.
это более ясный код
:)
Похожие вопросы
Предмет: Русский язык,
автор: Полиина5431
Предмет: Русский язык,
автор: Аноним
Предмет: Английский язык,
автор: нка322
Предмет: Математика,
автор: irin4ik08
Предмет: Физкультура и спорт,
автор: tkacvika49