1. Значения элементов одномерного массива S размерности k уменьшить на значение его минимального элемента.
2. Найти и напечатать первые положительные элементы строк матрицы А размерности m×k.
2. Найти и напечатать первые положительные элементы строк матрицы А размерности m×k.
More Questions From This User See All
Answers & Comments
Verified answer
Program one;uses crt;const
k = 10;
var
S: array[1..k] of integer;
i, min: integer;
begin
randomize;
writeln('Array:');
for i := 1 to k do
begin
S[i] := random(20);
write(S[i], ' ');
end; writeln;
min := S[1];
for i := 2 to k do
if S[i] < min then
min := S[i];
writeln('Min: ', min);
writeln('Result:');
for i := 1 to k do
begin
S[i] := S[i] - min;
write(S[i], ' ');
end;
end.
program two;
uses crt;
const
m = 5;
k = 5;
var
A: array[1..m] of array[1..k] of integer;
i, j, min: integer;
begin
randomize;
writeln('Matrix:');
for i := 1 to m do
begin
for j := 1 to k do
begin
A[i][j] := random(20) - 10;
write(A[i][j], ' ');
end;
writeln;
end;
writeln('Result:');
for i := 1 to m do
begin
for j := 1 to k do
begin
if A[i][j] > 0 then
begin
write(A[i][j], ' ');
break;
end;
end;
end;
end.