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

Question

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

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.

Comments

не то

---

ты прочитай внимательней

---

и в с строку надо

---

можешь нормально условие написать

---

ты читать не умеешь?

---

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