ГлавнаяФорумПомощь по предметамИнформатика[PASCAL]Минимальный элемент в массиве и его индекс

[PASCAL]Минимальный элемент в массиве и его индекс

Посетитель
Brixton
тест тест Словакия
Сообщений: 42
1453 дня назад
Код PASCAL:
  1.  
  2. const
  3. Sz = 100;
  4. var
  5. a: array [1..Sz] of real;
  6. N: integer;
  7. min: real;
  8. i,minind: integer;
  9. begin
  10. N := 20;
  11. for i:=1 to N do
  12. a[i] := Random(100);
  13. writeln('Элементы массива: ');
  14. for i:=1 to N do
  15. write(a[i],' ');
  16. writeln;
  17.  
  18. min := a[1];
  19. minind := 1;
  20. for i:=2 to N do
  21. if a[i]<min then
  22. begin
  23. min := a[i];
  24. minind := i;
  25. end;
  26.  
  27. writeln('Минимальный элемент: ',min);
  28. writeln('Индекс минимального элемента: ',minind);
  29. end.
Мы все со временем становимся не интересными ©
|
Перейти на форум:
Быстрый ответ
У вас нет прав, чтобы писать на форуме.