Ювеналий
5 год назад
составьте программу из 16 случайных целых чисел от -20 до 20,и опередяет,есть ли в этом массиве целые числа,равные 0. На экран выводятся исходный массив и индекс последнего найденого элемента
ОТВЕТЫ
Adrian
Oct 24, 2020
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.
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.
858
Смежные вопросы:
