Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
Ppoligoon
26.09.2021 16:58 •
Информатика
Заполнить массив на 30 целочисленных элементов псевдослучайными значениями от -200 до 200, найти самое большое отрицательное число и самое маленькое положительное (паскаль)
Показать ответ
Ответ:
даша3635
05.10.2020 12:31
Program prog;
Uses crt;
var a: array [0..29] of integer;
max, min, i: integer;
begin;
clrscr;
randomize;
max:=-201;
min:=201;
for i:=0 to 29 do
begin
a[i]:=random(401)-200;
write(a[i],' ');
if (a[i]>max)and(a[i]<0) then
max:=a[i];
if (a[i]<min)and(a[i]>0) then
min:=a[i];
end;
writeln;
writeln;
writeln('max neg = ', max);
writeln('min pos = ', min);
readln;
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
grekorim1998a
07.05.2020 17:39
Где купить сквизак. я хочу теггать...
vlad369cool
28.04.2021 13:30
Заполни таблицу истинности. Я написал некоторые значения, но я не уверен в их правильности(Перемести правильные значения в окошки.)...
OMG1234567890
03.07.2021 01:28
Обобщите информацию о понятиях «база данных», «информационная система», «табличная БД». Что такоеБД? Какие виды БД существуют? Назовите основанияклассификации БД. Какие организации...
Nikikiki303
24.03.2022 08:20
Суретті түзету дегеніміз не?...
alena7a1
06.05.2020 01:18
ответьте письменно на вопросы. 1) Как беспилотные автомобили определяют своё местонахождение? 2) Какие сенсоры используют беспилотные автомобили? 3) Назовите профессии, представители...
Dimoooon12321
19.04.2022 07:26
Что такое строки. Ввод и вывод строк. Без указательные функции работы со строками и их синтаксис. Особенности. ...
Няшка9000
28.08.2020 18:11
Расшифровать предложение: 208 154 209 130 208 190 32 208 187 209 142 208 177 208 184 209 130 32 209 129 208 178 208 190 208 181 32 208 158 209 130 208 181 209 135 208 181 209...
Котик132457
13.09.2021 16:54
Умножить верные числовые равенства: 23 10 и 10 2...
ksussshhhaaa
13.09.2021 16:54
Все люди любят загадки потому что они развивают в человеке сообразительность, фантазию. Подчеркни существительные в единственном числе.определи падеж...
Markich7770777
13.09.2021 16:54
Виконати задачі: 1) ABCD — тетраедр. Точки M і K — середини ребер DC і BC відповідно. Доведіть, що пряма MK паралельна площині ABD. 2) ABCDA1B1C1D1 — куб. Точки M і K — середини...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
Uses crt;
var a: array [0..29] of integer;
max, min, i: integer;
begin;
clrscr;
randomize;
max:=-201;
min:=201;
for i:=0 to 29 do
begin
a[i]:=random(401)-200;
write(a[i],' ');
if (a[i]>max)and(a[i]<0) then
max:=a[i];
if (a[i]<min)and(a[i]>0) then
min:=a[i];
end;
writeln;
writeln;
writeln('max neg = ', max);
writeln('min pos = ', min);
readln;
end.