tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Паскаль. дан массив. напечатать:
Паскаль. дан массив. напечатать: 1) все элементы не превышающие число 100 2) все четные элементы 3) все элементы, являющиеся трехзначными числами 4) третий, шестой и т.д элементы. , все программы напишите полностью. не пишите по одной программе.
Янияру
3 22.07.2019 12:50
1
Ответы
yroslav120206
23.09.2020 16:27
Const
n = 10;
var
a: array[0..10] of integer;
i, s: integer;
begin
//Заполнение массива сл. числами
for i := 1 to n do
begin
a[i] := random(201) - 100;
write(a[i]:4);
end;
writeln;
//1) Все элементы не превышающие число 100
writeln('Не больше 100 ');
for i := 1 to n do
if a[i] <= 100 then
write( a[i]:4);
writeln;
// 2) Все четные элементы
writeln('Кратные двум ');
for i := 1 to n do
if a[i] mod 2 = 0 then
write( a[i]:4);
writeln;
// 3) Все элементы, являющиеся трехзначными числами
writeln('Трехзначные ');
for i := 1 to n do
if (a[i] < -99) or (a[i] > 99) then
write(a[i]:4);
writeln;
// 4) Третий, шестой и т.д элементы.
i := 3;
writeln(' номера 3, 6, 9 и т.д.');
while i < n do
begin
write(a[i]:4);
i := i + 3;
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
annamironenkosp0dly3
09.04.2021 07:09
Информатика 2 задание на фото...
Трамбовщик
30.09.2019 01:50
Переведите из двоичной системы в шестнадцатиричную 1011101...
deniwolf200
30.09.2019 01:50
Трудный выбор ограничение времени 1 секунда ограничение памяти 64mb ввод стандартный ввод или input.txt вывод стандартный вывод или output.txt в этом году третий раз одна...
Tiiiddj
08.04.2020 20:46
Программисты Номер 8/9/10 на выбор...
dflbvdflbv
08.04.2020 20:46
Что такое проблема ?как решить идентификацию проблемы?...
НастяПи
28.11.2019 07:24
15. usb-флеш-накопитель объёмом 36 гб полностью заполнен файламиобъёмом 1 мб каждый. каждый файл – это документ объёмом 100 листов.сколько часов потребуется для печати...
Медуха
28.11.2019 05:46
1. текст занимает 1/32 кбайта памяти компьютера.сколько символов текст, в предоставленной кодовой таблицы кои8 2. какой цвет закодирован в пикселе методом rgb, глубина...
amalia110
28.11.2019 06:01
2вариант 1. какое высказывание истинно для всех точек области, выделенной на рисунке цветом? если высказывание а истинно для точек, и ринидлежащих кругу. высказывание...
maxim199431
28.11.2019 06:18
Объясните важность принципа группировки в процессп восприяния информации. пример...
Girl1209
04.08.2019 10:00
Решите по действиям (1111101 в двоичной +af в шестнадцатиричной): 36 в восьмиричной 125 в восьмиричной+101 в двоичной*2a в шестнадцатиричной-141 в восьмиричной...
Популярные вопросы
КАТОСТРОФИЧЕСКИ бсз3 invite your friend and suggest something he/she...
2
Спиши.Перед глаголами в скобках напиши во Ветерок дохнул,поутинку мотнул...
3
Укажите формулу предельногоуглеводорода, который имеетотносительную...
1
Составьте бухгалтерские проводки по хозяйственным операциям и баланс...
3
Назови российские города, которые одним из первых подвергались нападению...
1
Организация приобрела объект основных средств стоимостью 5 040 000...
1
1.С плотины высотой 19 м за 7 мин падает 500 т воды. Какая мощность...
1
Непоширене звертання найчастіше виражається...
3
Объём куска цинка равен 1 дм3. Определи, какая выталкивающая сила будет...
1
Поверхня шибки в кухні вкрилася тонкою плівкою жиру якщо освітити скло...
3
n = 10;
var
a: array[0..10] of integer;
i, s: integer;
begin
//Заполнение массива сл. числами
for i := 1 to n do
begin
a[i] := random(201) - 100;
write(a[i]:4);
end;
writeln;
//1) Все элементы не превышающие число 100
writeln('Не больше 100 ');
for i := 1 to n do
if a[i] <= 100 then
write( a[i]:4);
writeln;
// 2) Все четные элементы
writeln('Кратные двум ');
for i := 1 to n do
if a[i] mod 2 = 0 then
write( a[i]:4);
writeln;
// 3) Все элементы, являющиеся трехзначными числами
writeln('Трехзначные ');
for i := 1 to n do
if (a[i] < -99) or (a[i] > 99) then
write(a[i]:4);
writeln;
// 4) Третий, шестой и т.д элементы.
i := 3;
writeln(' номера 3, 6, 9 и т.д.');
while i < n do
begin
write(a[i]:4);
i := i + 3;
end;
end.