close

Вход

Забыли?

вход по аккаунту

?

alg1mas

код для вставкиСкачать
 Поиск минимального элемента массива и его номера CONST N=10;
VAR
I,K,NOM : INTEGER ;
MIN : REAL ;
X : ARRAY [ 1..N ] OF BYTE ;
BEGIN
WRITELN ('Введите размер исходного массива ');
READLN (K);
WRITELN (' Введите массив');
FOR I:=1 TO K DO
READ ( X[I] );
MIN :=X[1]; { начальные
NOM := 1; установки }
FOR I:=2 TO K DO
IF X[I] < MIN THEN BEGIN MIN:=X[I]; NOM:=I; END;
WRITELN ('Вывод массива');
FOR I:=1 TO K DO
WRITE ( X[I]:5 );
WRITELN;
WRITELN ('MIN = ',MIN:5, ' NOM = ',NOM:3 )
END.
* Вычисление суммы элементов массива
S:=0;
FOR I:=1 TO K DO
S:= S + X[I] ;
* Вычисление произведения отрицательных элементов массива
P:=1;
FOR I:=1 TO K DO
IF X[I] < 0 THEN P:= P * X[I] ;
* Подсчет количества четных элементов массива
KOL:=0 ;
FOR I:=1 TO K DO
IF X[I] mod 2 = 0 THEN KOL:= KOL + 1 ;
* Перестановка местами элементов с заданными индексами IND1 и IND2 B:= X[IND1] ;
X[IND1]:= X[IND2] ;
X[IND2]:= B ;
* Циклический сдвиг элементов на N позиций влево FOR I:=1 TO N DO
Begin
B:= X[1] ;
FOR J:=1 TO K-1 DO
X[J]:= X[J+1] ;
X[K]:=B ;
END;
Документ
Категория
Без категории
Просмотров
9
Размер файла
22 Кб
Теги
alg1mas
1/--страниц
Пожаловаться на содержимое документа