Помогите решить задачу. Дан массив А1,… . Аn. Найти максимальный и минимальный…

Question

80

Помогите решить задачу. Дан массив А1,… . Аn. Найти максимальный и минимальный элементы и поменять их местами. Вот задача которую я делал: program zadacha; constk=50; vara: array[1… k] of integer; n,i: 1… k; c,v,max,min,prom: integer; beginfor i: =1 to n do begin (здесь выскакивает ошибка о проверки диапазона) a[i]: =random (50); write (a[i],'); end; max: =a[1]; min: =a[1]; for i: =1 to n do beginif a[i]>max then begin max: =a[i]; c: =i; end; if a[i]

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

zadrot · Accepted Answer

53

zadrot

22 февраля 2023

Program zadacha; uses crt; vara: array[1… 1000] of integer; n,i: integer; c,v,max,min,prom: integer; beginWriteln ('Введите n'); readln (n); for i: =1 to n do begina[i]: =random (50); write (a[i],'); end; max: =a[1]; min: =a[1]; for i: =1 to n do beginif a[i]>max then begin max: =a[i]; c: =i; end; if a[i]

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: