Uses crt; const n=15;var a:array[1..100] of integer;i,k:byte;beginfor i:=1 to n do begina[i]:=random(9);write(a[i]:2);end;for i:=1 to n do beginif a[i]=0 thenbeginwriteln;k:=i;writeln('первый нулевой элемент i=',k);break;end;end;end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
