Составьте программу ввода с клавиатуры массива целых чисел а [1..10] и вывода на экран элементов массива с четными положительными значениями
209
ОТВЕТЫ
Program aki;
Var c,s,n,k,I: integer;
a:array[1..100] of integer;
Begin
for I:=1 to 10 do
Readln(a[i]);
for I:1 to 10 do
If (a[i] mod 2 = 0) and (a[i]>0) then writeln (a[i]);
End.
Var c,s,n,k,I: integer;
a:array[1..100] of integer;
Begin
for I:=1 to 10 do
Readln(a[i]);
for I:1 to 10 do
If (a[i] mod 2 = 0) and (a[i]>0) then writeln (a[i]);
End.
4
Отв. дан
Opidwyn
Для написания вопросов и ответов необходимо зарегистрироваться на сайте
Другие вопросы в разделе - Математика
Sira
Файл размером 60кБ передается через некоторое соединение со скоростью ...
2018-09-25 00:00:00
Nadar
При нажатии мышкой на внутреннею область квадрата происходит ошибка.Из-за ...
2018-09-25 00:00:00
Kezar
Даны координаты левой верхней и правой нижней вершин квадрата. ...
2018-09-25 00:00:00
Griswyn
Пожалуйста посчитайте с задачей. Имеются два флакона: на 5 ...
2018-09-25 00:00:00