Вопрос по информатике:
Помогите решить задачи в Pascal
1. Поменять местами максимальный и минимальный элемент массива.
2. Вывести четные числа среди положительных элементов
3. Напечатать сумму и номера положительных элементов после первого нулевого элемента
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 27.04.2016 10:33
- Информатика
- remove_red_eye 10025
- thumb_up 37
Ответы и объяснения 1
1)
// здесь нужно объявить количество элементов или ввести с помощью readln
var
a: array [1..N] of integer;
i: integer;
min: integer;
max: integer;
minnum: integer;
maxnum: integer;
begin
// здесь должен быть ввод значений массива в цикле
// for i:=1 to N do
a[i]=Random(100); или через readln;
min := a[1];
minnum := 1;
max := a[1];
maxnum := 1;
for var i:=2 to N do
begin
if a[i]
min := a[i];
minnum := i;
end;
if a[i]>max then
begin
max := a[i];
maxnum := i;
end;
end;
a[maxnum]=min;
a[minnum]=max;
//здесь вывод нового массива
end.
2)
for i:=1 to N do
if a[i]>0 then
if a[i] mod 2 = 0 then
write(a[i], ' ');
3)
var
sum: integer;
start: integer;
for i:=1 to N do
if a[i]=0 then
start=i+1; ////нашли первый нулевой, начинаем дальше со следующего
for i:=start to N do
begin
if a[i]>0 then
begin
sum=sum+a[i];
write(i, ' '); ///номер положительного элемента
end;
writeln;
write('Сумма =',sum);
end;
- 28.04.2016 16:38
- thumb_up 42
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.