Program Adelia17; uses crt; const n=30; var matr:array [1..n] of integer; i,pos,neg,zero:integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln(); writeln(); writeln('Программа находит количество положительных, отрицательных и нулевых элементов массива'); pos:=0; neg:=0; zero:=0; randomize; writeln('Массив: '); for i:=1 to n do begin matr[i]:=random(100)-50; write(matr[i]:4,' '); if matr[i]>0 then pos:=pos+1; if matr[i]<0 then neg:=neg+1; if matr[i]=0 then zero:=zero+1; end; writeln(); writeln('Количество положительных элементов равно ',pos); writeln('Количество отрицательных элементов равно ',neg); writeln('Количество нулевых элементов равно ',zero); end.
Program Nooobodyyy; uses crt; var i,how:integer; ch,appr,sum:real; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln(); writeln(); writeln('Программа запрашивает N дробных чисел и находит их среднее арифметическое'); sum:=0; write('Введите количество чисел: '); readln(how); for i:=1 to how do begin write('Введите ',i,'-e число: '); read(ch); sum:=sum+ch; end; appr:=sum/how; writeln('Cреднее арифметическое равно ',appr:8:2); end.
Ключевыми компонентами процессора являются арифметико-логическое устройство (АЛУ), регистры и устройство управления.