Определить, имеется ли в заданном одномерном массиве хотя бы один отрицательный элемент. Указание: использовать цикл с неизвестным заранее числом повторений.
Вот,ненаю как решить,как сортировать по убыванию и по возрастанию разобрался норм, а вот с этим немогу.Помогите пожалуйста кто может,по решонному легче разобраться...
nikita182
23.05.2007 2:04
uses crt;
type mass = array [1..8] of integer; var m : mass; i : integer;
begin clrscr; i := 1; writeln('vvoditi:'); while i < 9 do begin readln (m[i]); i := i + 1; end; i := 1; while i < 9 do begin if m[i] < 0 then begin writeln(m[i],' - vot tebe'); readkey; halt; end; i := i + 1; end; writeln('netu'); readkey; end.
volvo
23.05.2007 3:53
Как вариант второй части:
i := 1; while (i < 9) and (m[i] >= 0) do i := i + 1; if i < 9 then writeln(m[i],' - vot tebe') else writeln('netu');
Beseech
23.05.2007 14:27
спс,оч благодарен,терь по решонному буду разбираться...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.