1) Поменять местами минимальный четный элемент с последним. 2)На место максимального отрицательного элемента поместить сумму элементов кратных 3. (в программе Паскаль) РЕБЯТКИ помогите)))))))
1) Поменять местами минимальный четный элемент с последним. 2)На место максимального отрицательного элемента поместить сумму элементов кратных 3. (в программе Паскаль) РЕБЯТКИ помогите)))))))
Гость
Ответ(ы) на вопрос:
Гость1) program z1;
uses crt;
var a: array[1..100] of integer;
n,i,x,max,min,k:integer;
begin
randomize;
readln(n);
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:4);
end;
writeln;
min:=a[2];
for i:=3 to n do
begin
if a[i] mod 2=0 then
if a[i]
Не нашли ответ?
Похожие вопросы