Вопрос по информатике:
1) Поменять местами минимальный четный элемент с последним.
2)На место максимального отрицательного элемента поместить сумму элементов кратных 3. (в программе Паскаль) РЕБЯТКИ помогите)))))))
- 03.12.2017 17:37
- Информатика
- remove_red_eye 14089
- thumb_up 97
Ответы и объяснения 1
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]
min:=a[i];
k:=i;
end;
end;
x:=a[k];
a[k]:=a[n];
a[n]:=x;
for i:=1 to n do
write(a[i]:4);
max:=a[1];
end.
- 04.12.2017 07:16
- thumb_up 10
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.