Паскаль, 9 класс Дан массив целых чисел, состоящий из 10 элементов. Массив ввести с клавиатуры. Найти сумму отрицательных элементов. Найти количество тех элементов, значения которых положительны.

239

410

Посмотреть ответы 1

Ответы на вопрос:

hhhf1fodjcnj

Информатика

4,4(58 оценок)

Var a: real; k,m,p: string; begin writeln('введите число'); readln(a); if a< 0 then k: ='отрицательное' else k: =' положительное'; if a=int(a) then m: =' целое' else m: ='не целое'; if a/2=int(a/2) then p: =' чётное' else p: =' нечётное '; writeln('число ',a,' - ',k,' ; ',m,' ; ',p); end.