давно
Старший Модератор
31795
6196
28.05.2008, 18:12
общий
это ответ
Здравствуйте, Sanq4!
Смотрите приложение.
Удачи!
Приложение:
const n=10;var a:array[1..n]of integer; b,c:integer;begin {создаем в цикле последовательность и выводим её} randomize; for b:=1 to n do begin a[b]:=random(20)-10; write(a[b]:4); end; {проверяем услoвие} c:=0; for b:=1 to n-1 do if (a[b]*a[b+1])<0 then inc(c); {выводим результат} writeln(‘ Result:‘,c:3);end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.