Форум » Массивы, сортировка, работа с файлами » Правильное ли решение? » Ответить
Правильное ли решение?
Elusive55: Можно ли решить этот номер таким способом? Номер 15 [quote]const N=30; var a: array [1..N] of integer; i, j, k: integer; begin for i:=1 to N do readln(a[i ]); i:=1; k:=0; while (k<>3) and (i<31) do begin if a[i ]>0 then k:=k+1; i:=i+1; end; if k<3 then write ('нет') else write(i-1) end.[/quote]
Ответов - 2
Поляков: Elusive55 пишет: Можно ли решить этот номер таким способом? Думаю, что да.
Elusive55: Спасибо!
полная версия страницы