Предмет: Информатика,
автор: Вендето
составить программу вывода на экран всех четных элементов массива со значениями -10 от -10 (Паскаль)
Ответы
Автор ответа:
0
PascalABC.NET 3.4.2, сборка 1863 от 10.11.2018
Внимание! Если программа не работает, обновите версию!
begin
var a := ArrRandom(ReadInteger('n='), -10, 10);
a.Println;
a.Where(t -> 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
Аноним:
А если у Вас конкретные требования/пожелания - их надо в вопросе указывать а не в комментариях к ответу.
Вы правы
Например, прикладывать образец решений задач.
Либо, указывать версию компилятора.
Я бы хотел, что то вроде этого var i,x,y:integer;s:array [1..10] of integer;
begin
for i:=1 to 10 do
read(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.
begin
for i:=1 to 10 do
read(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 году, посему избегаю писать на нем программы.
Т.е. если где-то просят писать так, я просто обхожу такой вопрос стороной.
Хорошо. Я вас понял
Похожие вопросы
Предмет: Литература,
автор: beded68
Предмет: География,
автор: Аноним
Предмет: Литература,
автор: garinovasofia
Предмет: Алгебра,
автор: ghagha0