Составьте программу из 16 случайных целых чисел от - 20 до 20, и опередяет, есть ли в этом массиве целые числа, равные 0. На экран выводятся исходный массив и индекс последнего найденого элемента

Question

Информатика

Никитьич

2 августа, 10:02

Составьте программу из 16 случайных целых чисел от - 20 до 20, и опередяет, есть ли в этом массиве целые числа, равные 0. На экран выводятся исходный массив и индекс последнего найденого элемента

+2

Ответы (1)

Знаете ответ на вопрос?

Иванна · Answer 1

Begin

var k:=-1;

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

for var i:=1 to 16 do begin

a[i]:=20-random (40) + 1;

print (a[i]) ;

if a[i]=0 then k:=i;

end;

if k-1 then writeln ('Индекс : ', k) ;

end.