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

Question

Информатика

Митраша

16 мая, 18:44

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

+4

Ответы (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.