1. Сформировать

массив из 10 элементов. Найти минимальный элемент и максимальный.

2. Сформировать

массив из 10 элементов. Отсортировать по убыванию.

Question

Информатика

Сосипатра

30 марта, 11:37

1. Сформировать

массив из 10 элементов. Найти минимальный элемент и максимальный.

2. Сформировать

массив из 10 элементов. Отсортировать по убыванию.

+3

Ответы (1)

Знаешь ответ?

Димитриан · Answer 1

1.

const n=10;

var a:array[1 ... n] of integer;

i, min, max:integer;

begin

for i:=1 to n do a[i]:=random (50);

for i:=1 to n do write (a[i]:4);

writeln;

min:=32000; max:=-32000;

for i:=1 to n do

if a[i]
for i:=1 to n do

if a[i]>max then max:=a[i];

writeln ('минимальный элемент массива = ', min);

writeln ('максимальный элемент массива = ', max);

end.

2.

const n=10;

var a:array[1 ... n] of integer;

i, j, p:integer;

begin

for i:=1 to n do a[i]:=random (20);

for i:=1 to n do write (a[i]:4);

writeln;

for i:=1 to n-1 do begin

for j:=1 to n-1 do

if a[j]<=a[j+1] then begin

p:=a[j]; a[j]:=a[j+1]; a[j+1]:=p;

end;

end;

for i:=1 to n do write (a[i]:4);

end.

1. Сформироватьмассив из 10 элементов. Найти минимальный элемент и максимальный.2. Сформироватьмассив из 10 элементов. Отсортировать по убыванию.

1. Сформировать

массив из 10 элементов. Найти минимальный элемент и максимальный.

2. Сформировать

массив из 10 элементов. Отсортировать по убыванию.