Контрольная работа: Розробка алгоритмів та складання програм на мові програмування MS VisualBasic for Application

for i:=1 to n do

begin

if (b[i]<0) and (b[i]>max) then

begin

max:=b[i];

number:=i

end;

end;

writeln;

if number<> 0 then

begin

writeln('Максимальный среди отрицательных ',max);

writeln('Его номер в массиве ',number);

end

else writeln('Все элементы - неотрицательные');

readln

end.

Результат роботи програми

3. Задача на двовимірний масив

Знайти найбільший і найменший елементи матриці R(K,N), K<=20, N<=10 та поміняти їх місцями. Надрукувати матрицю R й одержану матрицю.

Текст програми (для простоти введення візьмемо менші значення kта n):

program k3;

const k=6;n=3;

var

r:array [1..k,1..n] of integer;

i,j,max,min,x1,x2,y1,y2:integer;

begin

writeln('Введите элементы массива');

for i:=1 to k do