Люди очень срочно решите пожалуйста задачу на Паскале: их 4 штуки! 1.дан массив тз N элементов. Есть ли в нем чётные элементы, которые кратны заданному числу K. 2. Дан массив из Nэлементов. Посчитать, сколько элементов массива ...
Люди очень срочно решите пожалуйста задачу на Паскале:
их 4 штуки!
1.дан массив тз N элементов. Есть ли в нем чётные элементы, которые кратны заданному числу K.
2. Дан массив из Nэлементов. Посчитать, сколько элементов массива равных минемальному.
3. Сформировать массив из Nэлементов: 10 12 16 22 30 40.
4. Дан массив из Nэлементов. Перемножить минемальные элементы на 2.
Heeelp!
Гость
Ответ(ы) на вопрос:
Гость1)
const n=100000;
var
k:integer;
flag:boolean;
a:array[1..n]of integer;
begin
flag:=false;
randomize;
read(k);
for i:=1 to n do
begin
a[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.
ГостьПриветик!!!!!!!!!!!!!!!!!!!
Не нашли ответ?
Похожие вопросы