Информатика 10-11. Книга 2. Практика алгоритмизации и программирования. Шауцукова Л.З. - 19 стр.

UptoLike

ВУЗ: 

ВСГУТУ | Улан-Удэ

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

Рубрика: 

2
3
4
-
+
-
3
10
1
3
Turbo Pascal
Program MaxElem;
Uses Crt;
Type Mas = Array [1..20] of Real;
Var A : Mas;
i, N : Integer;
k : Integer;
Amax : Real;
BEGIN
СlrScr;
Write('Введите N = ');
ReadLn(N);
For i := 1 to N do {Ввод значений элементов массива А}
begin
Write('A [ ', i, ' ] = '); ReadLn(A[i])
end;
Amax := A[1]; k:=1; {Поиск максимального элемента}
For i := 2 to N do
If A[i] > Amax then
begin
Amax := A[i]; k := i
end;
WriteLn; WriteLn('Наибольший элемент' , k , '-й');
WriteLn('Его значение ', Amax : 5 : 1); ReadLn
END. 
 2       -          3     1
 3       +         10     3
 4       -




Turbo Pascal
Program MaxElem;
  Uses Crt;
  Type Mas = Array [1..20] of Real;
  Var A      : Mas;
       i, N : Integer;
       k     : Integer;
       Amax : Real;
BEGIN
  СlrScr;
  Write('Введите N = ');
  ReadLn(N);
  For i := 1 to N do {Ввод значений элементов массива А}
     begin
       Write('A [ ', i, ' ] = '); ReadLn(A[i])
     end;
  Amax := A[1]; k:=1; {Поиск максимального элемента}
  For i := 2 to N do
     If A[i] > Amax then
       begin
          Amax := A[i]; k := i
       end;
  WriteLn; WriteLn('Наибольший элемент' , k , '-й');
  WriteLn('Его значение ', Amax : 5 : 1); ReadLn
END.

Страницы