Дан входной файл в котором нужно вывести все четные элементы.
Сколько там чисел? Или перепиши задание в точности как в книжке
это и есть полное условие
Массивы изучали?
да
Var a:array [1..10] of integer; I:integer; Begin For i:=1 to 10 do begin Read (a [i]); If a[i]>0 then writeln (a [i]); End; end.
спасибо
выручили:)
Я с телефона, и у меня показывает все в одну строчку, хотя я все нормально писал, после каждой точки с запятой ставь энтер крч
а не знаете как эту задачу сделать ? дан массив посчитать количество положительных и отрицательных элементов.
Знаю)
вообще не шарю и дела обстоят плохо:(
поможешь?:)
В личку напиши мне, в вк пойдем, тут неудобно просто
ок
какой вк