Надеюсь что это нужно выполнить на паскале
4. var a: array[1..20] of integer;
p,i:integer;
begin
p:=1;
for i:=1 to 20 do
begin
a[i]:= random(20);
write(a[i]:3);
end;
writeln;
for i:=1 to 20 do
if a[i] mod 2 = 0 then p:=p*a[i];
writeln(p);
end.
5. var a: array[1..100] of integer;
sum,i:integer;
begin
for i:=1 to 100 do
begin
a[i]:= random(100);
write(a[i]:4);
end;
for i:=1 to 100 do
sum:=sum+a[i];
writeln;
writeln(sum);
end.
6. var a: array[1..20] of integer;
sum,i:integer;
begin
writeln('Исходный массив');
for i:=1 to 20 do
begin
a[i]:= random(20);
write(a[i]:3);
end;
for i:=1 to 20 do
if a[i]<10 then
a[i] :=0;
writeln;
writeln('Итоговый массив');
for i:=1 to 20 do
write(a[i]:3);
end.
У меня получилось m=-4, k=10
Просто подставляй значения и проверяй условие, если условие верно то m будет=значению Д под этим номером.
1)Берем Д(1)=6 проверяем 6 меньше 2*6 ДА
m присваиваем значение Д(1),т.е 6
2)Берем Д(2)=-1 Сравниваем -1 меньше 2*6 ДА
<span>m присваиваем значение Д(2),т.е -1 и Т,Д до конца</span>
Їм бути дуже важко, та не зовсім цікаво на початку :( Англійску мову обов`язково знати!!! А так вчися)
<span>Они будут меньше, быстрее, умнее и, если верить рекламе программного обеспечения, дружественнее.</span>