Добавил:
Silebox
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:
program lab4_1;
var
M: array [1..20] of Integer;
A: array [1..20] of Integer;
B: array [1..20] of Integer;
i: Integer;
an: Integer = 1;
bn: Integer = 1;
begin
randomize;
for i:= 1 to 20 do
begin
M[i] := random(81) - 40;
end;
Write('Массив M: ');
for i:= 1 to 20 do Write(M[i], ', ');
WriteLn('');
for i:= 1 to 20 do
begin
if (M[i] >= 0) then
begin
A[an] := M[i];
an := an + 1;
end
else
begin
B[bn] := M[i];
bn := bn + 1;
end;
end;
Write('Массив A: ');
for i:= 1 to 20 do Write(A[i], ', ');
WriteLn('');
Write('Массив B: ');
for i:=1 to 20 do Write(B[i], ', ');
WriteLn('');
end.
var
M: array [1..20] of Integer;
A: array [1..20] of Integer;
B: array [1..20] of Integer;
i: Integer;
an: Integer = 1;
bn: Integer = 1;
begin
randomize;
for i:= 1 to 20 do
begin
M[i] := random(81) - 40;
end;
Write('Массив M: ');
for i:= 1 to 20 do Write(M[i], ', ');
WriteLn('');
for i:= 1 to 20 do
begin
if (M[i] >= 0) then
begin
A[an] := M[i];
an := an + 1;
end
else
begin
B[bn] := M[i];
bn := bn + 1;
end;
end;
Write('Массив A: ');
for i:= 1 to 20 do Write(A[i], ', ');
WriteLn('');
Write('Массив B: ');
for i:=1 to 20 do Write(B[i], ', ');
WriteLn('');
end.
Соседние файлы в папке лаб4