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

Writeln('Vvedite massiv');

For i:=1 to 5 do Readln(m[i]); p:=0;

For i:=1 to 5 do

If x1=m[i] then

p:=i;

if p<>0 then Writeln (' ',x1:1:1,' est v massive'); end else

Writeln(' ',x1:1:1,' net v massive');

For i:=1 to 5 do If x2=m[i] then p:=i;

if p<>0 then begin Writeln ('',x2:1:1,' est v massive');end else

Writeln(' ',x2:1:1,' net v massive');

Readln;End.

Вариант 12 .

Задание 14.

Дан массив из 10 чисел, отсортируйте его. Найдите в нем контрольное число. Все элементы после контрольного числа заменить на их квадраты.

Рrogram p1;

Uses crt;

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

c,b,i,j,t:integer;

Begin

ClrScr;

Writeln('vvedite 10 chisel');

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

For j:=1 to 10 do

Begin

t:=j;

for i:=j to 10 do

If a[i]<a[t] then t:=i;

b:=a[t];

a[t]:=a[j];

a[j]:=b;