uses crt;
var a,s:integer;
begin
s:=0;
writeln('Введите числа');
repeat
readln(a);
if (a>0) then s:=s+a;
until a=0;
writeln(s);
end.
Процессор (ағылш. central processing unit, CPU - Орталық есептеуіш бөлім)
1) программаға сәйкес операцияларды орындауға арналған компьютердің негізгі құрылғысы, қызметтік бөлігі. Көптеген жартылай өткізгішті элементтерден тұратын және компьютерде барлық есептеулер мен ақпарат өндеу жұмыстарын орындайтын электрондық микросхема. Қазіргі компьютерлерде бір немесе бірнеше процессорлар жұмыс істейді.
2) мәліметтерді өңдеу кезінде кейбір алдын ала есептеу жұмыстарын немесе ұйымдастыру қызметін атқаратын машиналық программа
Объяснение:
точно получишь 5 сделай лучший ответ
program Prog;
var i, MinElement: Integer;
arr: array[1..15] of Integer;
begin
{ задаем значение минимального элемента. изначально
оно дожно быть максимально возможным, так как мы будем
все элементы с ним сравнить и вычислять, какой из них наименьший.
для этого после того, как мы нашли элемент меньше чем имеющийся минимум,
то мы этот минимум изменяем на найденное нами число }
MinElement:=High(Integer); { т.к. будем работать с Integer, то максимум будем брать у Integer,
но вообще еще можно присвоить ему значение первого элемента массива и сравнивать потом с ним }
randomize; { это чтоб заполнить рандом. числами }
// запоолнение массива рандомом
for i:=1 to 15 do begin
arr[i]:=random(100); { для примера числа будут от 0 до 99 }
{ здесь мы как раз сравниваем с имеющимся минимум и меняем его,
если нашли элемент меньше }
if arr[i]<MinElement then
MinElement:=arr[i]
end;
// вывод всего массива
for i:=1 to 15 do
write(arr[i], ' ');
writeln;
// вывод минимума
writeln('Минимальный элемент: ', MinElement);
end.
uses crt;
var a,s:integer;
begin
s:=0;
writeln('Введите числа');
while a<>0 do begin
readln(a);
if (a>0) then s:=s+a;
end;
writeln('s=',s);
end.