RAM-память
HDD-жесткий диск
CPU- процессор
Video- видеокарта
Sound-звуковая
Кажись так
Program Summa;
Uses Crt;
var s,n,c:integer;
begin
clrscr;
write('Введите числа коннц ввода 0: ');
s:=0;c:=0;
repeat
readln(n);
c:=c+1;
if (n mod 2)=0 then
if ((n>=5)and (n<=25)) then s:=s+n;
until (n=0) or (c=1000) ;
write('Сумма ',c,' чётных чисел в диапазоне от 5 до 25:',s);
readkey;
end.
:D
program kurs_v;
const x=20;
var n:integer;
A:array[1..x] of integer;
i,min:integer;
begin
min:=A[1];
for i:=2 to N do
begin
If A[i]<min then min:=a[i];
end;
write(min);
end.