В массиве найти максимальный отрицательный элемент. Вывести на экран его значение и позицию в массиве.

Question

В массиве найти максимальный отрицательный элемент. Вывести на экран его значение и позицию в массиве.

михаил попов Ученик (160), закрыт 5 лет назад

Answer 1

Александр Баханский Искусственный Интеллект (105626) 6 лет назад

Чуть-чуть поправил решение предыдущег автора

uses crt;
var a:array [1..100] of integer;
i,n,max,j:integer;
begin
clrscr;
write('N=');
readln(n);

for i:=1 to n do
begin
write('A[',i,']=');
readln(a[i]);
end;

clrscr;

writeln('Massiv A: ');
for i:=1 to n do
write(a[i],' ');

writeln;
max:=a[1];
for i:=1 to n do
begin
if (a[i]<0) and (a[i]>max) then
begin
max:=a[i];
j:=i;
end;
end;

if max<0 then
writeln('Max sredi otric=',max,' ego nomer=',j)
else
writeln('Otricat net');
readkey
end.

Обосрамс ШрамовОракул (57812) 6 лет назад

ево номир 0 а дожен быт 1

Обосрамс ШрамовОракул (57812) 6 лет назад

второй ошипко

Обосрамс ШрамовОракул (57812) 6 лет назад

исправил

uses crt;
var a:array [1..100] of integer;
i,n,max,j:integer;
begin
clrscr;
write('N=');
readln(n);

for i:=1 to n do
begin
write('A[',i,']=');
readln(a[i]);
end;

clrscr;

writeln('Massiv A: ');
for i:=1 to n do
write(a[i],' ');

writeln;
max:=a[1];
j:=1;
for i:=1 to n do
begin
if (a[i]<0) and (a[i]<max) then
begin
max:=a[i];
j:=i;
end;
end;

if max<0 then
writeln('Max sredi otric=',max,' ego nomer=',j)
else
writeln('Otricat net');
readkey
end.

Александр Баханский Искусственный Интеллект (105626) Окончательный вариант решения. Извините, что сразу не исправил все ошибочки, а только ту которую увидел сразую uses crt; var a:array [1..100] of integer; i,n,max,j:integer; begin clrscr; write('N='); readln(n); for i:=1 to n do begin write('A[',i,']='); readln(a[i]); end; clrscr; writeln('Massiv A: '); for i:=1 to n do write(a[i],' '); writeln; max:=a[1]; for i:=1 to n do begin if (a[i]<0) and ((a[i]>max) or (max>=0)) then begin max:=a[i]; j:=i; end; end; if max<0 then writeln('Max sredi otric=',max,' ego nomer=',j) else writeln('Otricat net'); readkey end.

Answer 2

Ярослав Новичков Ученик (135) 6 лет назад

Язык какой?

михаил поповУченик (160) 6 лет назад

паскаль

Ярослав Новичков Ученик (135) Блин, я в паскале плох, вот питон бы. Ну примерно так будет: for k from 2 to n do if Dat[k] < Dat[k-1] do min = Dat[k] Я Паскаль уже где-то год не учил так что синтаксис не помню, подстрой этот код под синтаксис языка. А суть программы такая. Если что, Dat это массиву меня. Вместо дат можешь хоть какую переменную взять для массива, но в учебниках было именно дат написано обычно

Answer 3

```Pascal

uses crt;
var a:array [1..100] of integer;
i,n,max,j:integer;
begin
clrscr;
write('N=');
readln(n);

for i:=1 to n do
begin
write('A[',i,']=');
readln(a[i]);
end;

clrscr;

writeln('Massiv A: ');
for i:=1 to n do
write(a[i],' ');

writeln;
max:=a[1];
for i:=1 to n do
begin
if (a[i]<0) and (a[i]>max) then
begin
max:=a[i];
j:=i;
end;
end;

writeln('Max sredi otric=',max,' ego nomer=',j);
readkey
end.

```