Заменить первый элемент одномерного массива суммой максимального и минимального элементов

@Kenny_S · Регистрация: 16.05.2016

Author24 — интернет-сервис помощи студентам

Дан одномерный массив с числом элементов n<20. Заменить первый элемент этого одномерного массива суммой максимального и минимального элементов.
Заранее спасибо =)

@Joy · 16.05.2016, 12:25

Pascal

var
  a:array[1..20] of integer;
  i,mina,maxa,n:integer;
begin
  randomize;
  write('N=');readln(n);
  for i:=1 to n do begin
    read(a[i]);
    if (i=1) or (maxa<a[i]) then maxa:=a[i];
    if (i=1) or (mina>a[i]) then mina:=a[i];
  end;
  a[1]:=mina+maxa;
  for i:=1 to n do write(a[i],' ');
end.

@Kenny_S 0 / 0 / 0 Регистрация: 16.05.2016 Сообщений: 11
		1
	Заменить первый элемент одномерного массива суммой максимального и минимального элементов 16.05.2016, 10:10. Показов 2833. Ответов 1 Метки нет (Все метки) Дан одномерный массив с числом элементов n<20. Заменить первый элемент этого одномерного массива суммой максимального и минимального элементов. Заранее спасибо =) 0

	16.05.2016, 12:25

Заменить первый элемент одномерного массива суммой максимального и минимального элементов

Решение