1. Заполнить массив с клавиатуры целыми числами. Вывести элементы этого массива на экран. (Добавить комментарии) 2. Заполнить массив таким образом, чтобы каждый его элемент был равен утроенному значению его порядкового номера (индекса). 3. Ввести массив с клавиатуры, найти и вывести сумму элементов массива. 4. Ввести массив с клавиатуры, подсчитать, сколько в нем положительных элементов, а сколько отрицательных. 5. В одномерном массиве подсчитать, сколько отрицательных элементов находится на четных местах и сколько положительных на нечетных. 6. Элементы массива вводятся с клавиатуры, заменить в нем все отрицательные элементы их квадратами, а положительные кубами. Вывести на экран исходный и новый массив. 7. Ввести массив с клавиатуры, найти и вывести на экран максимальный и минимальный элементы. 8. Написать программу, которая определяет есть ли в массиве элемент введенный пользователем, подсчитывает их количество и выводит номер первого найденного элемента.

1. Program abc;

Var a:array[1 ... 7] of integer;

i:integer;

Begin

for i:=1 to 7 do

read (a[i]);

for i:=1 to 7 do

write (a[i],' ');

End.

2. Program abc;

Var a:array[1 ... 100] of integer;

b, i:integer;

Begin

for i:=1 to 7 do

begin

a[i]:=random (21);

write (a[i],' ');

a[i]:=a[i] * (i*3);

end;

writeln;

for i:=1 to 7 do

begin

write (a[i],' ');

end;

End.

3. Program abc;

Var a:array[1 ... 100] of integer;

b, i:integer;

Begin

b:=0;

for i:=1 to 5 do

begin

read (a[i]);

b:=b+a[i];

end;

write (b);

End.

4. Program abc;

Var a:array[1 ... 100] of integer;

b, c, i:integer;

Begin

b:=0;

c:=0;

for i:=1 to 5 do

begin

read (a[i]);

if a[i]<0 then c:=c+1;

if a[i]>0 then b:=b+1;

end;

writeln (c); //отрицательные

write (b); //положительные

End.

5. Program abc;

Var a:array[1 ... 100] of integer;

b, c, i:integer;

Begin

for i:=1 to 10 do

begin

a[i]:=random (41) - 20;

write (a[i],' ');

end;

writeln;

for i:=1 to 10 do

begin

if (a[i]<0) and (i mod 2=0) then b:=b+1;

if (a[i]>0) and (i mod 2=1) then c:=c+1;

end;

writeln (b);

writeln (c);

End.

6. Program abc;

Var a:array[1 ... 100] of integer;

b, i:integer;

Begin

for i:=1 to 10 do

begin

read (a[i]);

write (a[i],' ');

end;

writeln;

for i:=1 to 10 do

begin

if a[i]>0 then a[i]:=sqr (a[i]) * a[i];

if a[i]<0 then a[i]:=sqr (a[i]);

write (a[i],' ');

end;

End.

7. Program abc;

Var a:array[1 ... 100] of integer;

max, min, i:integer;

Begin

max:=0;

min:=9999;

for i:=1 to 10 do

begin

read (a[i]);

if a[i]>max then max:=a[i];

if a[i]
end;

writeln (max);

write (min);

End.

8. Program abc;

Var a:array[1 ... 100] of integer;

b, i:integer;

Begin

read (b);

for i:=1 to 10 do

begin

a[i]:=random (21);

write (a[i],' ');

end;

writeln;

for i:=1 to 10 do

begin

if a[i]=b then write (i,' - номер найденного элемента ');

break;

end;

End.