1) var c:array [1..15] of integer; i,n:integer; Begin n:=1; randomize ;for i:=1 to 15 do c[i]:=random(50); for i:=1 to 15 do write(c[i],' '); for i:=1 to 15 do if c[i] mod 9=0 then n:=c[i]*n; writeln; for i:=1 to 15 do write(c[i],' '); writeln; writeln(n); End. 2) var b:array [1..25] of integer; i,,j:integer; cr:real; Begin randomize; for i:=1 to 25 do b[i]:=random(50); for i:=1 to 25 do write(b[i],' '); for i:=1 to 25 do if b[i] mod2<>0 then Begin cr:=cr+b[i]; j:=j+1; end; cr:=cr/j; writeln; write(cr); End. Не забудьте сказать
Приставка, предлог (не часть слова), суффикс, окончание, корень; Треугольник, отрезок, длина (не фигура), квадрат, круг; Дождь, снег, осадки (собирательное название всех остальных), иней, град; Запятая, точка, двоеточие, тире, союз (не знак препинания); Сложение, умножение, деление, слагаемое (не арифметическое действие), вычитание; Дуб, дерево (собирательное название всех остальных), ольха, тополь, ясень; Секунда, час, год, вечер (не точный промежуток времени), неделя; Горький, горячий (не относится к вкусу), кислый, соленый, сладкий; Футбол, волейбол, хоккей, плавание (не игровой вид спорта), баскетбол.
чтобы был формат данных
Объяснение: