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

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

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

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

Question

Информатика

Эрнест

3 июня, 14:32

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

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

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

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

+4

Ответы (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 элементов. Отсортировать по убыванию.