Нахождение максимального среди отрицательных элементов одномерного массива целых чисел

@gorodskoi · Регистрация: 18.09.2010

27. Составить программу нахождения максимального среди отрицательных элементов одномерного массива целых чисел. Для поиска максимального элемента использовать функцию пользователя.

Калі ласка дапамажыце з праграмамі.

@M@RsHall · 29.03.2011, 16:16

27. Примерно так. Ни пельмеса по белорусски xD

Pascal

program ex;
uses crt;
type mass=array[1..100] of integer;
var n,s2:integer; a:mass;
procedure vvod(var n:integer; var a:mass);
var i:integer;
begin
writeln('n='); readln(n);
for i:=1 to n do begin
write('a[',i,']='); readln(a[i]);
end; end;
procedure vivod(n:integer; a:mass);
var i:integer; begin
for i:=1 to n do
write(a[i]:4);
writeln;
end;
function otr(n:integer; a:mass):integer;
var i:integer; s:integer;
begin
s:=65000;
for i:=1 to n do
if (a[i]<0) and (a[i]>s) then
s:=a[i];
otr:=s;
end;
begin
clrscr;
vvod(n,a);
clrscr;
vivod(n,a);
s2:=otr(n,a);
write('Максимальный элемент среди минимальных=',s2);
readln;
end.

@iama · 29.03.2011, 16:17

Не по теме:

M@RsHall, это белорусский

@M@RsHall · 29.03.2011, 16:19

Сообщение от iama

Не по теме:

M@RsHall, это белорусский

Не по теме:

Извиняюсь, конечно, если огорчил, но я их не различаю))

@gorodskoi · 29.03.2011, 16:25 **[ТС]**

Сообщение от M@RsHall

s:=65000;

Знайшоў памылку.

@iama · 29.03.2011, 16:26

gorodskoi, имеется в виду 2*MaxShortInt - 1

@gorodskoi 1 / 1 / 0 Регистрация: 18.09.2010 Сообщений: 34
		1
	Нахождение максимального среди отрицательных элементов одномерного массива целых чисел 29.03.2011, 16:02. Показов 1951. Ответов 5 Метки нет (Все метки) 27. Составить программу нахождения максимального среди отрицательных элементов одномерного массива целых чисел. Для поиска максимального элемента использовать функцию пользователя. Калі ласка дапамажыце з праграмамі. 0

@iama
	29.03.2011, 16:17 #3
	Не по теме: M@RsHall, это белорусский 0

@M@RsHall 28 / 24 / 11 Регистрация: 11.11.2009 Сообщений: 101
	29.03.2011, 16:19	4
	Сообщение от iama Не по теме: M@RsHall, это белорусский Не по теме: Извиняюсь, конечно, если огорчил, но я их не различаю)) 0

@gorodskoi 1 / 1 / 0 Регистрация: 18.09.2010 Сообщений: 34
	29.03.2011, 16:25 [ТС]	5
	Сообщение от M@RsHall s:=65000; Знайшоў памылку. 0

@iama 1337 / 988 / 119 Регистрация: 30.07.2010 Сообщений: 5,297
	29.03.2011, 16:26	6
	gorodskoi, имеется в виду 2*MaxShortInt - 1 0

Опции темы

Нахождение максимального среди отрицательных элементов одномерного массива целых чисел

Решение