Question

1массив из 15 элементов заполнить с клавиатуры,введя один раз нулевое значение.определить,сколько элементов в массиве находится до нулевого значения. паскаль

Answer 1

const n=15;//количество элементов в массиве

var a:array [1..n] of integer;

i,k:integer;

begin

for i:=1 to n do read (a[i]);//ввод элементов массива

write('Массив: ');

for i:=1 to n do write(a[i],' ');//вывод элементов массива на экран

writeln;

for i:=1 to n do

if (a[i] > 0) or (a[i] < 0) then k:=k+1 else write ('Элементов в массиве находится до нулевого значения ',k)//подсчёт количества элементов до 0 и вывод значения

end.

Объяснение: