tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
1: пользователь вводит 5 чисел,необходимо
1: пользователь вводит 5 чисел,необходимо вывести минимальное отрицательное число. 2 : пользователь вводит 10 чисел, необходимо вывести максимальное четное число. /паскаль/
RedFoxTR
2 18.09.2019 17:40
0
Ответы
soborsasha
08.10.2020 00:29
Задача 1:
Program Test1;
Var min, i: integer; num: array[1..5] of integer;
Begin
Writeln('Введите 5 чисел (через пробел): ');
Readln(num[1], num[2], num[3], num[4], num[5]);
min := 0;
for i := 1 to 5 do
begin
if (num[i] < min) then
min := num[i];
end;
if (min < 0) then
begin
Writeln();
Writeln('Min = ', min);
end
else
begin
Writeln();
Writeln('Вы не ввели отрицательных чисел!');
end;
End.
Задача 2:
Program Test2;
Var max, i: integer; num: array[1..10] of integer;
Begin
Writeln('Введите 10 чисел (через пробел): ');
Readln(num[1], num[2], num[3], num[4], num[5], num[6], num[7], num[8], num[9], num[10]);
max := 0;
for i := 1 to 10 do
begin
if (num[i] > max) then
begin
if (num[i] mod 2 = 0) then
max := num[i];
end;
end;
if (max > 0) then
begin
Writeln();
Writeln('Max = ', max);
end
else
begin
Writeln();
Writeln('Вы не ввели четных положительных чисел!');
end;
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
ladiaginairina
08.05.2020 20:22
Здравствуйте правильно ответить на во...
Светик1987
08.05.2020 20:22
Решите очень мало времени1!1!1!!1!...
dashameluhova95
08.05.2020 20:22
Мне нужно выполнить работу в экселе, можете рассказать как что найти, но только без формул, а с функций, которые в нем есть, ну если не знаете, то ладно. Хотя бы формулой...
katyusha1514111
12.08.2019 23:10
Существует некий набор из 6 гирь, с которых можно уравновесить 63 груза, веса которых являются последовательными натуральными числами (1, 2, 3, 4, 63 г.) какие гири образуют...
Alekseimiller
10.12.2020 13:28
Программа на С ++. И с блок схемой. ...
zincenkoe759
10.12.2020 13:28
Информатика 7 класс написать сайт реклама и название адрес и как он полезен ...
burdyugova48
10.12.2020 13:27
Информатика. Создание Ёлки в программе КуМир. Буду очень благодарен за проделанную работу. Заранее Нужно сделать, что-то подобное (см. картинку). Хотелось бы чтобы ответом...
sashadedarewa
20.10.2020 00:39
№2 Найдите значение выражения(по действиям): 20 div 6 – trunc(1.8) + 2*sqr(round(3.5) div pred(6) — 18 mod 5...
Gogasg
20.10.2020 00:39
Тест «моделирование и формализация» 4. схема электрической цепи является а) табличной модельюб) иерархической модельюв) графической модельюг) словесной моделью 5. установите...
samikby
26.08.2019 05:10
Из 2 городов расстояние между которыми 2415 км одновременно вышли два поезда они встретились через 15 часов скорость одного поезда 68 км ч с какой скоростью шел другой...
Популярные вопросы
Даны векторы a ( 3; -1; 1) и b ( - 5; 1; 0). Выясните какой угол (острый,...
3
Наидите периметр четырехугольника, если его наименьшая сто-рона равна...
3
Решите уравнение cos12x-2(sin3x)^2-1=0...
1
Геометрическая прогрессия. b6 = 2; b9 = -54. Найти...
2
Хочу изменить контакты а телефоне, но пишет, что контакт только для...
1
Можете Выполните действия.a b-- - 5 5...
2
Определите, сколько учеников класса на уроке физкультуры, если 1,5...
2
Герої якого твору мали конкретних прототипів А «Кайдашева сім я»; Б...
1
Обчисли площу прямокутника, довжина якого на 20 % більша, а ширина...
1
Чим був зумовлений перехід від романського стилю до готичного стилю...
1
Program Test1;
Var min, i: integer; num: array[1..5] of integer;
Begin
Writeln('Введите 5 чисел (через пробел): ');
Readln(num[1], num[2], num[3], num[4], num[5]);
min := 0;
for i := 1 to 5 do
begin
if (num[i] < min) then
min := num[i];
end;
if (min < 0) then
begin
Writeln();
Writeln('Min = ', min);
end
else
begin
Writeln();
Writeln('Вы не ввели отрицательных чисел!');
end;
End.
Задача 2:
Program Test2;
Var max, i: integer; num: array[1..10] of integer;
Begin
Writeln('Введите 10 чисел (через пробел): ');
Readln(num[1], num[2], num[3], num[4], num[5], num[6], num[7], num[8], num[9], num[10]);
max := 0;
for i := 1 to 10 do
begin
if (num[i] > max) then
begin
if (num[i] mod 2 = 0) then
max := num[i];
end;
end;
if (max > 0) then
begin
Writeln();
Writeln('Max = ', max);
end
else
begin
Writeln();
Writeln('Вы не ввели четных положительных чисел!');
end;
End.