Var
i,n,t,s:integer;
begin
Read(n);
i:=0;
repeat
Read(t);
i:=i+1;
if t mod 2<>0 then s:=s+t
until i=n;
Writeln(s)
end.
К внешней памяти относят; 2) ПЗУ и 3) Жесткий диск.
<span>Глобальная сеть Интернет - способ организации межкультурного общения. Психологические особенности Интернет-коммуникации, интернет-этикет. Процессы развития глобальных информационно-коммуникационных технологий в настоящее время. Риски виртуального общения</span>
Var
i,n:integer;
s,min:real;a:array[1..10]of real;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
begin
a[i]:=random(-10,10);
write(a[i],' ');
if a[i]<0 then
begin
s:=s+a[i];
n:=n+1;
end;
if a[i]<min then min:=a[i];
end;
writeln;
s:=s/n;
for i:=1 to 10 do if a[i]=min then a[i]:=s;
writeln('Среднее отрицательных:',s);
writeln('Измененный массив:');
for i:=1 to 10 do write(a[i],' ');
<span>end.</span>
Var a,s,p,i:integer;
begin
s:=0; p:=1;
writeln('Введите 5 чисел:');
for i:=1 to 5 do
begin
readln(a);
s:=s+a*a;
p:=p*a*a;
end;
writeln('s = ',s,' p = ',p);
end.
Пример:
<span>Введите 5 чисел:
2
4
3
1
5
s = 55 p = 14400</span>