Реферат: Одномерные массивы. Организация ввода и вывода данных

a[t]:=a[j];

a[i]:=b;End;

For j:=9 to 15 do

Begin

t:=i;

For i:=j to 15 do

If a[i]<a[t] then

t:=i;b:=a[t];a[t]:=a[j];

a[j]:=b;End;

For i:=1 to 15 do

Write(' ',a[i]); End.

Задание 8.

В одномерном массиве целых чисел определить минимальный элемент, заменить его на 0. Стоящие за ним элементы на 6.

Program p2;

Var a: array [1..10] of integer;

i,min,j,t:integer;

begin

Writeln ('vvedite massiv');

For i:=1 to 10 do Readln(a[i]);

For j:=1 to 10 do

begin

min:=a[1];

t:=1;

for i:=2 to 10 do

If a[i] <min: =a[i];

t:=i;End;

a[t]:=0;

for i:=t+1 to 10 do

a[i]:=6;