Информатика, опубликовано 2018-08-22 23:40:31 by Гость
Дан массив B,состоящий из 15 элементов значения которого вводятся с клавиатуры. подсчитать сколько элементов массива положителлных и четных
Ответ оставил Гость
Program a;
Var Mas : array [1..15] of integer;
b,c,i: integer;
Begin
K:=0;
C:=0;
For i:=1 to 15 do begin
read (Mas[i]);
If (Mas[i]>0) then inc(k);
If ((Mas[i] mod 2)=0) then inc(c);
End;
Writeln(положительных - ,k);
Writeln(четных - ,c);
End.
(паскаль, не компилировал)
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на