Var a,b: integer;
c: real;
begin
write('a=');
readln(a);
write('b=');
readln(b);
c:=(a+b)/2;
write('среднее арифметическое: ',c);
end.
Var a:array[1..15]of integer;
i,max:integer;
Begin
for i:= 1 to 15 do
a[i]:=random(100);
max:= a[1]+a[2];
for i:= 1 to 14 do
if max < a[i]+a[i+1] then
max := a[i]+a[i+1];
writeln(max);
End.
Если масив заполнить нужно рандомно:
program wk;
var i,s:integer;mas:array [1..10] of integer;
begin
s:=0;
for i:=1 to 10 do
begin
mas[i]:=random(21)-20;
if mas[i] mod 2=0 then s:=s+mas[i];
end;
writeln('S=',s)
end.
Если масив заполняется с клавиатуры:
program wk;
var i,s:integer;mas:array [1..10] of integer;
begin
s:=0;
for i:=1 to 10 do
begin
readln(mas[i]);
if (mas[i] mod 2)=0 then s:=s+mas[i];
end;
writeln('S=',s)
end.
Var
mas:array [1..3] of integer;
i:integer;
begin
writeln('Введите 3 числа');
for i:= 1 to 3 do
readln(mas[i]);
for i:= 1 to 3 do
if mas[i]>0 then
writeln('Положительное число ', mas[i] ,' было возведено в квадрат =', sqr(mas[i]))
end.<span>
</span>