Решить : в одномерном массиве из n чисел вывести - вопрос №2232998 от Іванка2006 30.05.2022 05:08

Question

Информатика: Решить : в одномерном массиве из n чисел вывести на экран положительные элементы и сообщение об их количестве. cls rnd находим все положительные числа в одномерном массиве и выводим их количество input количество элементов ; n dim a(n) for i = 1 to n input a(i) next i rem выбор положительных чисел k = 0 for i = 1 to n if a(i) 0 then k = k + 1: print a(i) next i rem количество положительных чисел print k end в чем ошибка?

Іванка2006 · Answer

Var a:array[1..10]of integer;i:byte;k:integer;beginreadln(n);k:=0;for i:=1 to n doa[i]:=-500+random(500);for i:=1 to n do beginif a[i] 0 thenwriteln(a[i]);k:=k+1;end;writeln( количество = ,k);end....