Цитата:
Первоначальное сообщение от Ржавый Фонарь
Люди добрые, помогите!!! В преддверии новогодних праздников окончательно отупел и не могу решить элементарную задачу по паскалю. Дан массив А(10), найти максимальный элемент среди отрицательных элементов, вывести на экран его значение, номер и массив А. Я пробовал решить так:
program xxx;
var a: array [1..10] of integer;
i,max: integer;
begin
writeln (‘введи’);
for i:=1 to 10 do
if a[i]<0 then
max:=a[i];
if a[i]>max then a[i]:=max;
writeln (‘max=’,max);
end.
Не работает, блин! Прошу, кто может – помогите, а то я уже начинаю комплексовать по поводу своих умственных возможностей. Заранее спасибо.
|
Комплексуешь и правильно делаешь.
C таким алгоритмом я бы просто застрелился.