Найти в одномерном массиве наибольший отрицательный элемент

@Futilite · Регистрация: 17.12.2009

Author24 — интернет-сервис помощи студентам

2. Найти в одномерном массиве наибольший отрицательные элемент

Pascal

const
    m = 10;
 
var
    arr: array[1..m] of integer;
    max_num, max_index: integer;
    i: integer;
 
begin
    for i := 1 to m do begin
        write(i, ' элемент массива равен ');
        read(arr[i]);
    end;
 
    for i := 1 to m do begin
       write (arr[i],' ');
    end;
 
    max_index := 1;
    max_num := -32768;
 
    for i := 1 to m do
        if (arr[i] > max_num) and (arr[i]<0) then begin
            max_index := i;
            max_num := arr[i];
        end;
 
    writeln;
    writeln ('Max = ',max_num);
    writeln ('position: ', max_index);
end.

@APALoff · 16.01.2014, 10:32

Найти максимальный отрицательный элемент массива

@APALoff 1647 / 1076 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	16.01.2014, 10:32	2
	Найти максимальный отрицательный элемент массива 0