Алгоритмы и программы. Афанасьева Т. В - 170 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

170
Begin
randomize;
K := random(10) + 1;
writeln(' размер массива : ',k);
write(' элементы массива :');
for x := 1 to K do
begin
Massiv[x] := random(100) – 50;
writeln(' ',Massiv[x]);
end;
writeln(' введите число для сравнения ');
READLN(C);
Ma := 0;
Sum := Summa(Massiv);
if Ma=K then writeln(' элементов меньше ',C:3,' в массиве нет')
else
begin
writeln(' сумма элементов массива меньше числа ',C:3);
writeln(' равно ',Sum);
end;
End.
Пример 9.10. Программа сортировки столбцов двумерного массива
модифицированным методом простого выбора.
program nat6;
uses crt;
type
d=array[1..4] of integer;
b=array[1..4] of d; {двумерный массив}
var
c:b;
s:d;
i,j:byte;
procedure sort( var a:array of integer); {сортировка одномерного
массива, формальный параметр a типа открытый массив передается по
ссылке}
var
i,j,k:byte;
m:integer;
{i,j,k,m–локальные переменные}
begin

Страницы