Люди решите на паскале: их 4 штуки! 1.дан массив тз - вопрос №324901441 от wenefep07126 24.08.2020 10:26

Question

Информатика: Люди решите на паскале: их 4 штуки! 1.дан массив тз n элементов. есть ли в нем чётные элементы, которые кратны заданному числу k. 2. дан массив из nэлементов. посчитать, сколько элементов массива равных минемальному. 3. сформировать массив из nэлементов: 10 12 16 22 30 40. 4. дан массив из nэлементов. перемножить минемальные элементы на 2. heeelp!

wenefep07126 · Answer

1)const n=100000;vark:integer;flag:boolean;a:array[1..n]of integer;beginflag:=false;randomize;read(k);for i:=1 to n dobegina[i]:=random(1000);if (a[i] mod k=0) and (i mod 2=0) then flag:=true;end;if flag then write( Есть ) else write( Нет );end....