Одномерные массивы

Цель работы: научиться работать с одномерными массивами и операторами цикла WHILE...DO и REPEAT...UNTIL.

Мне требуется, используя  операторы цикла WHILE...DO и REPEAT...UNTIL , написать программу, которая ввод данных в одномерный целочисленный массив осуществляет

посредством цикла WHILE...DO, а  вывод – REPEAT...UNTIL, заменяющую минимальный элемент массива на единицу(12).

Порядок выполнения:

Для решения поставленной задачи я составил следующую блок-схему:

 
Составил следующую программу:

program massivy;

uses crt;

var i,n,a:integer;

Massiv:ARRAY[1..12]OF Real;

begin

i:=1;

while i<=12 do

begin

writeln('Введите',i,'-й элемент:');

readln(Massiv[i]);

i:=i+1;

end;

n:=1;

i:=2;

repeat if Massiv[i]<Massiv[n] then n:=i;

i:=i+1;

until i>12;

writeln(‘Минимальный элемент’,n,'=',Massiv[n]);

writeln('заменяем этот элемент на единицу');

Massiv[n]:=1;

Writeln('Теперь на месте минимального элемента стоит следующее значение:',Massiv[n]);

end.

 

В результате выполнения программы  получил:

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