составить программку вывода на экран всех четных частей массива со значениями

Составить программку вывода на экран всех четных частей массива со значениями -10 от -10 (Паскаль)

Задать свой вопрос
1 ответ

PascalABC.NET 3.4.2, сборка 1863 от 10.11.2018

Внимание! Если программка не работает, обновите версию!

begin

 var a := ArrRandom(ReadInteger('n='), -10, 10);

 a.Println;

 a.Where(t -gt; t.IsEven).Println

end.

n= 15

-9 2 -2 7 -6 6 -4 -1 2 0 -9 8 -3 -6 -6

2 -2 -6 6 -4 2 0 8 -6 -6

Нина Струлистова
А если у Вас определенные требования/пожелания - их надо в вопросе указывать а не в комментариях к ответу.
Maksim Kunakin
Вы правы
Кремчуков Дмитрий
Например, прикладывать образец решений задач.
Стефания Шуруева
Либо, указывать версию компилятора.
Генка
Я бы желал, что то вроде этого var i,x,y:integer;s:array [1..10] of integer;beginfor i:=1 to 10 doread(s[i]);for i:=1 to 10 do if s[i] mod 2=0 then begin writeln (s[i]); y:=y+1; end;writeln;writeln('количество четных чисел = ',y)end.
Semjon
Вы разумеете что я имею в виду?
Володя Хабадзе
Будьте так добросердечны, напишите программку сходственно тому,что я написал выше
Larisa
Разумею, это Турбо Паскаль образчика середины 80-х годов прошедшего века. Но я не поддерживаю идеи давать его школьникам в 2018 году, почему избегаю писать на нем программы.
Ульяна Тумшевиц
Т.е. если где-то требуют писать так, я просто обхожу такой вопрос стороной.
Алексей Одновал
Хорошо. Я вас сообразил
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт