Лаба 8
Задание:Дан массив D(15) элементы массива который больше в 5 уменьшить в 3 раза , а остальные элементы увеличить на 4.

Моё решение:

Program PR8;
Uses Crt;
Const n=15;
Var
D:array [1..n] of integer;
b,i:integer;
begin
TextAttr:=$4B;ClrScr;
randomize;
for i:=1 to n do
begin
D[i]:=random(20)-10;
write(D[i]:4);
end;
writeln;
for i:=1 to n do
begin
IF D[i]>5 then D:=D[i]/3 else b:=D[i]+4;
writeln (6:4:2);
end;
writeln;
readln;
end.

Перед else выдаёт ошибку.

Лаба 9
Задание: Дан массив E(11) найти произведение отрицательных элементов в массиве.

Моё решение:

Program PR9;
Uses Crt;
Const n=11;
Var
E:array [1..n] of integer;
P,i:integer;
begin
TextAttr:=$4B;ClrScr;
randomize;
for i:=1 to n do
begin
E [i]:=random (10)-5;
writeln(E[i]:5);
end;
writeln;
P:=1;
for i:=1 to n do
begin
IF E [i]>0 then P:=P*E[i];
end;
writeln ('p=' , p:5);
readln;
end.

Работает но коряво, проверте просто.


Лаба 10
Задание: Дан массив (V10) найти полусумму нечётных эл-ов массива.

Моё решение:

Program PR10;
Uses Crt;
Const n=10;
Var
V:array [1..n] of integer;
i,d,s: integer;
sr:real;
begin
TextAttr:=$4B;ClrScr;
randomize;
for i:=1 to n do
begin
V[i]:=random(20);
writeln(V[i]:3);
end;
writeln;
for i:=1 to n do
begin
s:=0;
IF V[i] MOD 2=1 then s:=s+V[i];
sr:=s/2;
end;
writeln ('sr=',sr:5:3);
readln;
end.

Опять же, просто проверьте.


Лаба 11

Задания нету) Есть тока решение, просмотрите пожалуйста сам код. Программа работает но криво =\

Program PR11;
Uses Crt;
Const n=3;m=4;
var
D:array [1..n , 1..m] of integer;
j,i,u:integer;
b:real;
begin
TextAttr:=$4B;ClrScr;
for j:=1 to n do
begin
for i:=1 to n do
begin
D[i,j]:=random(20)-10;
write (D[i,j]:u);
end;
writeln;
end;
for j:=1 to n do
begin
IF D[i,j]<3 then b:=D[i,j]+3 else b:=D[i,j]/12;
writeln (b:4:2);
end;
writeln;
readln;
end.

Лаба 12
Задание
Дан массив O(15,3) Найти произведение отрицательных элементов массива и подсчитать их количество.

Решение:

Program PR12;
Uses Crt;
Const n=5;m=3;
Var
O:array [1..n, 1..m] of integer;
i,j,p,k:integer;
begin
TextAttr:=$4B;ClrScr;
randomize;
begin
for i:=1 to n do
begin
O[i,j]:=random(20)-10;
write(O[i,j]:4);
end;
writeln;
end;

p:=1;
k:=0;
for i:=1 to n do
for j:=1 to m do
begin
IF O[i,j]<0 then p:=p*O[i,j];
K:=K+1;
end;

writeln ('p=',p:5);
writeln ('k=',k);
readln;
end.

опять же, проверьте программу, работает коряво)