Помогите пожалуйста!!!

+ 0 -

Ralifka

28 янв. 2017 г., 22:52:02 (7 лет назад)

Задача 1
var
a:array [1..20] of integer;
i,k:integer;
begin
randomize;
writeln('Массив:');
for i:=1 to 20 do
begin
a[i]:=random(60)-12;
write(a[i],' ');
end;
writeln;
for i:=1 to 20 do
if (a[i] mod 2)=0 then k:=k+1;
writeln('Количество четных элементов: ',k);
end.

Задача 2
var
a:array [1..10] of integer;
i,k:integer;
begin
a[1]:=-6; a[2]:=0; a[3]:=56; a[4]:=12; a[5]:=32;
a[6]:=44; a[7]:=32; a[8]:=56; a[9]:=-17; a[10]:=-9;
writeln('Массив:');
for i:=1 to 10 do
write(a[i],' ');
writeln;
k:=1;
for i:=1 to 10 do
if a[i]<0 then k:=k*a[i];;
writeln('Произведение отрицатльных элементов: ',k);
end.

Задача 3
var
a:array [1..12] of integer;
i,k:integer;
begin
a[1]:=-6; a[2]:=0; a[3]:=56; a[4]:=12; a[5]:=32;
a[6]:=44; a[7]:=32; a[8]:=56; a[9]:=-17; a[10]:=-9;
a[11]:=89; a[12]:=13;
writeln('Массив:');
for i:=1 to 12 do
write(a[i],' ');
writeln;
k:=0;
for i:=1 to 12 do
if a[i]>32 then k:=k+a[i];;
writeln('Сумма элементов больших 32: ',k);
end.

Задача 4
var
a:array [1..10] of integer;
i:integer;
begin
a[1]:=-6; a[2]:=0; a[3]:=56; a[4]:=12; a[5]:=32;
a[6]:=44; a[7]:=32; a[8]:=56; a[9]:=-17; a[10]:=-9;
writeln('Массив:');
for i:=1 to 10 do
write(a[i],' ');
writeln;
writeln('Массив после замены элементов: ');
for i:=1 to 10 do
if (a[i] mod 3)=0 then a[i]:=50;
for i:=1 to 10 do
write(a[i],' ');
writeln;
end.

Задача 5
var
a:array [1..5] of integer;
i,k:integer;
begin
randomize;
writeln('Массив:');
for i:=1 to 5 do
begin
a[i]:=random(168)-120;
write(a[i],' ');
end;
writeln;
k:=a[4];
a[4]:=a[5];
a[5]:=k;
writeln('Массив массив после перестановок:');
for i:=1 to 5 do
write(a[i],' ');
writeln;
end.