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.

Объяснение: