Составить программу вывода на экран всех четных элементов массива со значениями -10 от -10 (Паскаль)
begin
var a := ArrRandom(ReadInteger('n='), -10, 10);
a.Println;
a.Where(t -> t.IsEven).Println
end.
А если у Вас конкретные требования/пожелания - их надо в вопросе указывать а не в комментариях к ответу.
Вы правы
Например, прикладывать образец решений задач.
Либо, указывать версию компилятора.
Я бы хотел, что то вроде этого 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.
Вы понимаете что я имею в виду?
Будьте так добры, напишите программу подобно тому,что я написал выше
Понимаю, это Турбо Паскаль образца середины 80-х годов прошлого века. Но я не поддерживаю идеи давать его школьникам в 2018 году, посему избегаю писать на нем программы.
Т.е. если где-то просят писать так, я просто обхожу такой вопрос стороной.
Хорошо. Я вас понял