Информатика, опубликовано 2018-08-22 22:23:55 by Гость
Дан массив целых чисел. найти количество тех элементов значение которых положительны и не превосходят число 7. написать программу для паскаля
Ответ оставил Гость
Const n=10;
var a:array[1..n] of integer;
k,i;integer;
begin
writeln(vvedite massiv=);
for i;=1 to n do
readln(a[i]);
k:=0;
if (a[i]>0) and (a[i]writeln(k=,k);
readln;
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на