Написать программу, которая вводит с клавиатуры - вопрос №44062085 от Maximys2001123 02.06.2022 20:03

Question

Информатика: Написать программу, которая вводит с клавиатуры одномерный массив из 5 целых чисел и выводит количество ненулевых элементов. перед вводом каждого элемента должна появляться подсказка с номером. рекомендуемый вид экрана при работе программы: после ввода каждого числа нажмите a[1]= 12 a[2]= 0 a[3]= -3 a[4]= 1 a[5]= 0 в массива 3 ненулевых элемента

Maximys2001123 · Answer

Program p1;var a:array[1..5] of integer;    i,c:integer;beginfor i:=1 to 5 dobeginwriteln( Введите a[ ,i, ]: ); read(a[i]);if a[i] 0 then c:=c+1;end;writeln( В массива ,c, ненулевых элемента );end....