Решите задачу в Pascal ** массивы 2 уровень сложности, вторая задача задание ** фото

0 голосов
30 просмотров

Решите задачу в Pascal на массивы
2 уровень сложности, вторая задача
задание на фото


image

Информатика (72 баллов) | 30 просмотров
Дан 1 ответ
0 голосов
Правильный ответ

Вот программа и результат ее работы (см. скриншоты)

Эта программа находит максимальный элемент, стоящий на четном месте и минимальный элемент, стоящий на нечетном месте
Затем max и min складываются.

Чтобы протестировать программу необходимо УБРАТЬ ввод датчиком случайных чисел (random) и написать ввод с клавиатуры.

Сейчас выставлю второй вариант (для тестирования)


image
image
image
0

к сожалению, вы решаете слишком круто, учительница не поверит
мы в классе решаем задачи вот так:
Program Massiv; 

const n = 8; 
var i:integer; 
b:array[1..n] of real; 
maxb:real; 
nmax:integer; 
Begin 
for i:=1 to n do 
begin 
write('b[',i:2,']='); 
readln(b[i]); 
end; 
maxb:=b[1]; 
nmax:=1; 
for i:=2 to n do 
if b[i]>maxb then 
begin 
maxb:=b[i]; 
nmax:=i; 
end; 
writeln(maxb); 
writeln(nmax); 
for i:=1 to n do 
begin 
b[i]:=b[i]/maxb; 
writeln('b[',i:2,']=',b[i]); 
end; 
end.

0

Ну и что?   Переделаешь мою программу по своему. Главное программа работает, значит ошибок нет...

0

можете как-то упростить или адаптировать вашу задачу под те, что мы решаем

0

ведь мне самой нужно понять

0

Ну давай так. Я программу писал так, чтобы она "влезла" в скриншот. А ты теперь КАЖДЫЙ оператор пиши НА НОВОЙ СТРОЧКЕ, так и разберешься. Программа не длинная...

0

хорошо, попытаюсь
спасибо