Одномерные массивы

1)Ввести с клавиатуры массив из 5 элементов. Найти среднее арифметическое всех элементов массива.

program z1;
const n=5;
var a:array [1..n] of integer;
i,s:integer;s1:real;
begin
for i:=1 to n do
begin
write('a[',i,']=');
read(a[i]);
end;
s:=0;s1:=0;
for i:=1 to n do
s:=s+a[i];
s1:=s/n;
writeln('среднее арифм =',s1);
readln
end.

2)Ввести с клавиатуры массив из 5 элементов. Найти наименьший из них.

program z2;
const n=5;
var a:array [1..n] of integer;
min,i:integer;
begin
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);
read(a[i]);
end;
min:=a[i];
for i:=1 to n do
if a[i]<min then
min:=a[i];
writeln(‘min =’,min);
readln
end.

3)Ввести с клавиатуры массив из 5 элементов. Найти произведение отрицательных элементов массива.

program z3;
const n=5;
var a:array [1..n] of integer;
p,i:integer;
begin
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);
read(a[i]);
end;
p:=1;
for i:=1 to n do
if a[i]<0 then
p:=a[i]*p;
writeln(‘p =’,p);
readln
end.

4)Ввести с клавиатуры массив из 5 элементов. Найти кол-во неотриц-х элементов.

program z4;
const n=5;
var a:array [1..n] of integer;
k,i:integer;
begin
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);
read(a[i]);
end;
k:=0;
for i:=1 to n do
if a[i]>0 then
k:=k+1;
writeln(‘k =’,k);
readln
end.

5)Ввести с клавиатуры массив из 5 элементов. Найти сумму четных элементов.

program z5;
const n=5;
var a:array [1..n] of integer;
s,i:integer;
begin
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);
read(a[i]);
end;
s:=0;
for i:=1 to n do
if a[i] mod 2=0 then
s:=s+a[i];
writeln(‘s =’,s);
readln
end.

6)Ввести с клавиатуры массив из 5 элементов. Найти сумму элементов стоящих на четных местах.

program z6;
const n=5;
var a:array [1..n] of integer;
s,i:integer;
begin
for i:=1 to n do
begin
write(‘a[‘,i,’]=’);
read(a[i]);
end;
s:=0;
for i:=1 to n do
if i mod 2=0 then
s:=s+a[i];
writeln(‘s =’,s);
readln
end.

7) Дан одномерный массив чисел. Измените знаки всех его элементов на противоположные.

program z7;
const n=10;
var a:array [1..n] of integer;
i:integer;
begin
writeln(‘исходный массив:’);
for i:=1 to n do
begin
a[i]:=random(100);
writeln(‘a[‘,i,’]= ‘,a[i]);
end;
writeln;
writeln(‘новый массив:’);
for i:=1 to n do
begin
a[i]:=-1*a[i];
writeln(‘a(‘,i,’)= ‘, a[i]);
end;

end.

8) Удалить первый отрицательный элемент, если таковой имеется.

program z8;
const n=10;
var a:array [1..n] of integer;
i,k,ki:integer;
begin
k:=0;
writeln(‘исходный массив:’);
for i:=1 to n do
begin
a[i]:=random(100)-90;
write(‘a[‘,i,’]= ‘,a[i],’  ‘);
end;
for i:=1 to n do
if (k=0) and (a[i]<0) then
begin k:=a[i];
ki:=i;
end;
for i:=ki to n-1 do
begin
a[i]:=a[i+1];
end;
writeln;
writeln(‘номер первого отрицательного элемента= ‘, ki);
writeln(‘массив после удаления элемента :’ );
for i:=1 to n-1 do
write(‘a[‘,i,’]= ‘,a[i],’  ‘);

end.

9) Вставить элемент перед отрицательным последним элементом.

program z9;
const n=10;
var a:array [1..n] of integer;
i,k,ki,x:integer;
begin
k:=0;
writeln(‘исходный массив:’);
randomize;
for i:=1 to n do
begin
a[i]:=random(50)-30;
write(‘a[‘,i,’]= ‘,a[i],’  ‘);
end;
for i:=1 to n do
if a[i]<0 then
begin k:=a[i];
ki:=i;
end;
writeln(‘последний отрицательный элемент: ‘, k);
writeln(‘введите число, которое надо вставить перед отрицательным последним элементом: ‘);
read(x);
writeln(‘массив после вставки элемента :’ );
for i:=1 to ki-1 do
write(‘a[‘,i,’]= ‘,a[i],’  ‘);
write(‘a[‘,ki,’]= ‘,x,’  ‘);
for i:=ki to n do
write(‘a[‘,i+1,’]= ‘,a[i],’  ‘);
end.

10) Даны два целочисленных массива одинаковой размерности. Получить третий массив той же размерности, каждый элемент которого равен большему из соответствующих элементов данного массива.

program z10;
const n=10;
var a,b,c:array [1..n] of integer;
i,k:integer;
begin
k:=0;
writeln(‘массив a:’);
for i:=1 to n do
begin
a[i]:=random(100);
writeln(‘a[‘,i,’]= ‘,a[i]);
end;
writeln;
writeln(‘массив b:’);
for i:=1 to n do
begin
b[i]:=random(100);
writeln(‘b[‘,i,’]= ‘,b[i]);
end;
writeln;
writeln(‘массив c:’);
for i:=1 to n do
begin
if a[i]>b[i] then c[i]:= a[i] else c[i]:=b[i];
writeln(‘c[‘,i,’]= ‘,c[i]);
end;

end.

11) В заданной последовательности все элементы, не равные нулю, расположить сохраняя их порядок следования, в начале последовательности, а нулевые элементы — в конце последовательности.