whilei<11 do

Begin

write(' a[',i,']=');

read(a[i]);

if a[i]<min then min:=a[i];

i:=i+1;

end;

a[10]:=min;

writeln(' Массив a после обработки: ');

i:=0;

Repeat

i:=i+1;

if a[i]>0 then a[i]:=a[i]+1;

write(a[i],' ');

until i=10;

writeln;

readln;

end.

Рис. 6 – Результат работы программы

Вывод: в ходе работы мною были изучены методы работы с одномерными массивами и операторами цикла WHILE...DO и REPEAT...UNTIL.

Лабораторная работа 5

Цель работы: научиться работать с двухмерными массивами.

Задача:

определить количество положительных элементов в двухмерном массиве 5 × 4;

Исходный код:

uses crt;

Var

a: array [1..5,1..4] of integer;

i,j,k:integer;

Begin

k:=0;

writeln(' Массив a:');

for i:=1 to 5 do

Begin

for j:=1 to 4 do

Begin

a[i,j]:=random(10)-1;

write(a[i,j]:3);

if (a[i,j]>0) then k:=k+1;

end;

writeln;

end;

writeln;

writeln('Количество положительных элементов:',k);

readln;

end.

Рис. 7 – Результат работы программы

Вывод: в ходе работы мною были изучены методы работы с двухмерными массивами.