Лабы и курсовая для АТП / Лабораторная работа 3

Лабораторная работа 3.

Тема: Массивы.

Задание: Написать программу, подсчитывающую количество смен знака в последовательности чисел B[10].

Ход работы:

Блок-схема:

Код программы:

uses crt;

var a:array[1..10] of integer; s,i:byte;

begin clrscr; randomize;

for i:=1 to 10 do

begin

a[i]:=random(20)-10;

writeln('a[',i,']=',a[i]);

end;

s:=0;

for i:=1 to 9 do

if ((a[i]>0) and (a[i+1]<0)) or ((a[i]<0) and (a[i+1]>0)) then s:=s+1;

writeln(s);

readln;

end.

Результат работы программы: