Найти максимальный элемент массива и заменить им все элементы, кроме минимального

@f_c_s_d_1_9_3_6 · Регистрация: 08.12.2014

1) Объявить массив из 10 чисел.Вывести значения элементов с клавиатуры.Найти максимальный элемент массива и заменить им все элементы,кроме минимального.Вывести на экран и в файл исходный и измененный массив.

@Joy · 09.12.2014, 08:11

Pascal

const  m=10;
type
  mas=array[1..m] of real;
var
  a:mas;
  i,j,l:integer;
  f:text;
procedure print(a:mas;s:string);
var
  i:integer;
begin
  writeln(s);
  writeln(f,s);
  for i:=1 to m do begin
    writeln(a[i]:0:2);
    writeln(f,a[i]:0:2);    
  end;  
end;
begin
  assign(f,'out.txt');
  rewrite(f);
  write('введите массив:');  
  j:=1;l:=1;
  for i:=1 to m do begin
    read(a[i]);
    if a[j]>a[i] then j:=i;
    if a[l]<a[i] then l:=i;
  end;
  print(a,'Исходный массив');
  for i:=1 to m do if a[i]<>a[j] then a[i]:=a[l];
  print(a,'Измененный массив');  
  Close(f);
end.

@f_c_s_d_1_9_3_6 · 10.12.2014, 19:49 **[ТС]**

Большое спасибо !

@f_c_s_d_1_9_3_6 0 / 0 / 0 Регистрация: 08.12.2014 Сообщений: 9
		1
	Найти максимальный элемент массива и заменить им все элементы, кроме минимального 08.12.2014, 23:46. Показов 1552. Ответов 2 Метки нет (Все метки) 1) Объявить массив из 10 чисел.Вывести значения элементов с клавиатуры.Найти максимальный элемент массива и заменить им все элементы,кроме минимального.Вывести на экран и в файл исходный и измененный массив. 0

@f_c_s_d_1_9_3_6 0 / 0 / 0 Регистрация: 08.12.2014 Сообщений: 9
	10.12.2014, 19:49 [ТС]	3
	Большое спасибо ! 0

Опции темы

Найти максимальный элемент массива и заменить им все элементы, кроме минимального

Решение