Пришлось перезадать во У меня проблемы с информатикой, программируем на паскале. задали два задания, впал в ступор. буду очень благодарен если будут объяснения решения. на языке паскаля, 8 кл Решить задачи с цикла FOR.
№2. Найти минимальное из введенных трёхзначных чисел. Программа получает на вход сначала количество чисел, затем сами числа (не большие 1000). Программа выводит на экран одно число: наименьшее число из введённых. (подсказка: переменной min присвоить значение 1000)
№3. Вывести на экран таблицу умножения на А. Пользователь вводит число А, программа выводит на экран произведение числа А на все числа от 1 до 10 в виде
5*1 = 5
5*2=10…
mussay86
1
27.04.2020 18:10
1
Другие вопросы по теме Информатика
Мариелла17
21.03.2019 05:14
2006215
21.03.2019 05:08
Маширо11
21.03.2019 06:50
ksyunik435
21.03.2019 06:50
spongebob2353
21.03.2019 06:50
nmedvedeva20018
08.07.2021 13:37
dimaborysyk99
08.07.2021 13:36
zabirovrobert
08.07.2021 13:36
Популярные вопросы
- Правописание одной и двух н в прилагательных и причастиях...
3 - Напишите отзыв про нильса из сказки чудесное путешествие нильса с дикими утками...
1 - Назовите самый известный храм созданный древними греками. и ещё. какие произведения...
2 - Из арифметической прогрессии нам известно, что а8=10, найдите а2 + а14, решить )...
3 - Электродвигатель подъемного крана работает под напряжением 380 в, сила тока в его...
2 - Построить интервалы от нот си с обращениями (я болела) : ( : ( : (...
3 - Замени данные словосочетания глаголами с суффиксами -ова-(ева) -ыва- (ива): быть...
3 - На каком транспорте лучше всего перевозить рыбу...
3 - Найти число обратное значению выражения -3+5=?...
2 - Какое количество вещества азота содержит 12х 10^23 молекул этого вещества?...
1
var
i, n, count2, max2, count3, min3 : Integer;
begin
ReadLn(n);
count2:=0; max2:=0;
count3:=0; min3:=1000;
for i:=1 to n do
begin
Read(n);
if (n>9) and (n<100) then
begin
inc(count2);
if n>max2 then max2:=n;
end;
if (n>99) and (n<1000) then
begin
inc(count3);
if n<min3 then min3:=n;
end;
end;
if count2=count3 then
WriteLn(0)
else if count2>count3 then
WriteLn(max2)
else
WriteLn(min3);
end.
Объяснение: