Предмет: Информатика,
автор: lovecs2281337
Дан массив, состоящий из целых чисел. Напишите программу, которая выводит те элементы массива, которые являются чётными числами.
Входные данные
Сначала задано число N — количество элементов в массиве (1N100). Далее через пробел записаны N чисел — элементы массива. Массив состоит из целых чисел.
PASCAAAALLLL
Даю 35 баллов
Ответы
Автор ответа:
1
Ответ:
var n,i:integer;
a:array [1..100] of integer;
begin
readln(n);
for i := 1 to n do read(a[i]);
writeln;
for i := 1 to n do if a[i] mod 2 = 0 then write(a[i]:4)
end.
Автор ответа:
0
===== PascalABC.NET =====
begin
var n := ReadInteger;
var a := ReadArrInteger(n);
a.Where(p -> p.IsEven).Println
end.
Приложения:
Интересные вопросы
Предмет: Українська мова,
автор: dimaostrolutsky
Предмет: Математика,
автор: HatikoSun
Предмет: Українська література,
автор: opelomega2105
Предмет: Литература,
автор: Dianka0913
Предмет: Музыка,
автор: Antoshkagoker