Program p1;
uses crt;
var a:array[1..30] of integer;
sr,s:real;
i:integer;
begin
for i:=1 to 30 do begin
read(a[i]);
s:=s+a[i];
end;
sr:=s/30;
write(sr);
end.
begin
var x := ArrRandom(10, 0, 9); x.Println;
var y := Arrrandom(8, 0, 9); y.Println;
var z := (x.Where(x->x>0) + y.Where(x->x>0)).toList;
if z.Count<18 then
z.AddRange(SeqFill(18-z.Count, 1));
z.Println;
end.
// Задание №1
var
a,s: integer;
begin
a:=300;
repeat
s:=s+a;
a:=a+2;
until a>400;
writeln('s = ', s)
end.
// Задание №2
var
a: integer;
begin
a:=100;
repeat
if a mod 8 = 0 then write(a:4);
a:=a+1;
until a>999;
end.
<span> Техника - создание чертежей
наука - Создание моделей каких либо
реклама - создание изображений на банерах, плакатах
сфера развлечений - реклама какого либо развлечения
медицина - ренген
производство - создание чертежей, проектов планов
обучение - Создание каких либо чертежей, графических моделей</span>