const N=85;
 
var
A:array[1..N] of integer;
k,i : integer;
f2 : text;
begin
assign (f2,'D:/output.txt');
rewrite(f2);
 Randomize;
 for i := 1 to N do A[i] := -20+Random(30);
 k:=-500;
 for i := 1 to N do if (A[i]>k)and(A[i]<0) then k := A[i];
 writeln('Naibolshaya velichina sredi otricatelnih chisel: ', k);
 write(f2,'Naibolshaya velichina sredi otricatelnih chisel: ', k);
 close(f2);
end.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

13.10.2021, 14:47

Ответы с готовыми решениями:

Обработчик события окна (Turbo Vision)
Программирую с Turbo Vision. Требуется сделать так, чтобы при нажатии мышкой на окно, оно...

Создание окон windows turbo vision
Требуется оформить задач в виде окон windows при помощи turbo vision для исходной задачи....

Различия между Turbo Pascal и Free Pascal (Turbo mode)
Собственно вот и вопрос. Чем отличается FPC Turbo Pascal mode от самого компилятора Turbo Pascal?

[Turbo C/Turbo Pascal] Двумерный массив
Вводится двумерный массив. Найти числа, встречающиеся во всех строках. (Листинг + блок-схемы(по...

	13.10.2021, 14:47

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

13.10.2021, 14:47

Помогаю со студенческими работами здесь

Turbo Vision
Программа в Турбо Паскале, с подключением Турбо Вижиона, а так же выбор от куда вводить(с...

Создание чата в Turbo Pascal 7.0
Озадачился такой штукой - попробовать создать работающий чат посредством Turbo Pascal Но как...

Библиотека turbo vision
Здравствуйте, подскажите пожалуйста где скачать и как подключить библиотеку turbo vision в вижуал...

Учебник по Turbo Vision
Посоветуйте хороший и понятный учебник по Turbo Vision,который можно скачать.Нигде не могу найти.

создание словаря с TURBO PASCAL ABC
ЗДРАВСТВУЙТЕ. помогите пожалуйста создать программу для составления словаря. надо сделать прогу...

Создание БД Записная книжка на Turbo Pascal
Здравствуйте! В задании необходимо создать БД Записная книжка на паскале.Сделала, но выдает ошибку...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Наверх