Вопрос школьника по предмету Информатика
в одномерном массиве из 10 элементов посчитать количество положительных элементов.
Pascal abc
Ответ учителя по предмету Информатика
const N =10;
var A: array [1..N] of real;
i, k: real;
begin
{ввод массива}
for i:=1 to N do
if A[i]>0 then
k:=k+1;
writeln (‘Положительных чисел: ‘, k);
end.
Похожие вопросы от пользователей
1:Количество книг на двух полках было одинаковым.Когда с первой полки переложили 18 книг на вторую,то на второй полке книг стало в 3 раза больше,чем на первой.Сколько книг было на каждой полке первоначально?
2:Сумма двух чисел равна 348.Второе число на 6 больше,чем 80% первого числа. Найдите первое число
3: Длина отрезка АB равна 33см.Точка C делит его на два отрезка AC и CB.40% отрезка AC равны дробью 1 3 отрезка CB.Найдите длину отрезка AC
(x+694)-719=764