Срочно!!! написать программу в паскаль.Дан массив целых чисел, состоящий из 20 элементов. Заполнить его датчиком случайных чисел. Заменить максимальный элемент на противоположный по знаку.

Срочно!!! написать программу в паскаль.
Дан массив целых чисел, состоящий из 20 элементов. Заполнить его датчиком случайных чисел. Заменить максимальный элемент на противоположный по знаку.
- Предмет:
  Информатика
- Автор:
  giovannycrja
- 5 лет назад

Ответы 1

program chik;const n=20;var a:array[1..20]of integer;i,l,max:integer;beginrandomize;for i:=1 to n doa[i]:=random(100)-50;max:=a[1];for i:=2 to n doif(a[i]>max)then max:=a[i];for i:=1 to n dobeginif(a[i]=max)then a[i]:=-max;write(a[i],' ');end;end.
- Автор:
  friskyt5nn
- 5 лет назад
- 0
Добавить свой ответ

Еще вопросы

при печатании книги предполагалось уместить на странице 28 строк, по 40 букв в каждой строке. Однако по размерам бумаги оказалось целесообразнее поместить на каждой странице 35 строк. Сколько букв следует помещать в каждой строке, чтобы общее число страниц в книге оставалось без изменений? нужно решение. Помогите пожалуйста...
- Предмет:
  Математика
- Автор:
  nitro
- 5 лет назад
- Ответов:
  
  1
- Смотреть
В ХХ веке появилось много важных документов (в том числе международных) о защите прав человека,ребенка. С чем, по вашему мнению, это связано? Что нужно делать взрослым и детям, чтобы эти права выполнялись?
- Предмет:
  Обществознание
- Автор:
  figueroa
- 5 лет назад
- Ответов:
  
  1
- Смотреть
1.Упервого термометра шкала начинается с «0» градусов по Цельсию и заканчивается «+ 50» градусов по Цельсию, у второго термометра с «35» по «42» градуса по Цельсию, а на третьем с «– 50» градусов по Цельсию до «+ 50». Для измерения каких объектов предназначен каждый из термометров?
- Предмет:
  Биология
- Автор:
  houstonestes
- 5 лет назад
- Ответов:
  
  1
- Смотреть
sin2x+sin3x+cos5x=1 Решите пожалуйста
- Предмет:
  Алгебра
- Автор:
  sebastianrichardson
- 5 лет назад
- Ответов:
  
  1
- Смотреть

Ответы 1

Топ пользователей