Как найти минимальный элемент массива, и как поменять местами чётные и нечётные элементы массива

@drucha · Регистрация: 20.06.2013

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

@Valery__ · 21.06.2013, 19:57

Pascal

Program arry;
Const n=8;
Type mas = array[1..n] of real;
Var a:mas;
    i:integer;
    min,temp:real;
BEGIN
  min:=100000;
  Writeln ('Vvedite masiv iz chisel ');
  for i:=1 to n do begin
    write ('a[',i,'] ');
    Readln (a[i]);
    if a[i]<min then min:=a[i];
  end;
  i:=1;
  While (i<n)
  do begin
     temp:=a[i];
     a[i]:=a[i+1];
     a[i+1]:=temp;
     i+=2;
  end;   
  for i:=1 to n do 
   Write (a[i],'   ');
   Writeln;
  Writeln('min= ',min); 
END.

Vvedite masiv iz chisel
a[1] 65
a[2] 48
a[3] 23
a[4] 74
a[5] 12
a[6] 56
a[7] 45
a[8] 56
48 65 74 23 56 12 56 45
min= 12

@drucha 0 / 0 / 0 Регистрация: 20.06.2013 Сообщений: 18
		1
	Как найти минимальный элемент массива, и как поменять местами чётные и нечётные элементы массива 21.06.2013, 18:27. Показов 1361. Ответов 1 Метки нет (Все метки) Как найти минимальный элемент массива, и как поменять местами чётные и нечётные элементы массива 0

	21.06.2013, 19:57

Как найти минимальный элемент массива, и как поменять местами чётные и нечётные элементы массива

Решение