Помогите, пожалуйста! Найти четные числа в массиве в программке PascalABC и
Помогите, пожалуйста!
Найти четные числа в массиве в программке PascalABC и все это вывести на экран.
Перехрист
Дарья
Массив необходимо задавать, если да то как?
Арсений Тельчаев
Необходимо. Вы спросили того, кто не знает информатику.
Кацарев
Ден
Вдруг в задании было описано
Arsenij Blejhman
Не, это нам учитель сам задал
Альбина Сущина
Ну так что, знаете, как решать?
Антон
Да
Вася Жаев
Тогда не могли бы Вы мне написать?
1 ответ
Лилия Цицак
Var
a:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(101);
if a[i] mod 2 = 0 then
writeln('a[', i, ']=',a[i]);
end;
end.
a:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(101);
if a[i] mod 2 = 0 then
writeln('a[', i, ']=',a[i]);
end;
end.
Алина Голтенова
Спасибо
Боря Пестрак
Из паскаля криво копируется, мыслю лишние отступы можете убрать сами :)
Аделина
Это уж смогу :)
Ден
Если что, массив из 10 частей, которые задаются случайными числами от 0 до 100
Яна Билеуш
Да, это знаю. Еще раз спасибо
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Облако тегов