линейный массив

@soRi · Регистрация: 29.03.2013

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

Дано 6 чисел, найти максимум и минимум ,определить является ли разность между максимумом и минимумом четным числом.

@SladkayaVata · 05.04.2013, 20:37

Pascal

const
  n = 6;
 
type
  mas = array[1..n] of integer;
 
var
  a: mas;
  i, j, max, min: integer;
 
procedure print_mas;
var
  i: integer;
begin
  for i := 1 to n do
    write(a[i], ' ');
  writeln;
end;
 
procedure init_mas;
var
  i: integer;
begin
  for i := 1 to n do
    a[i] := random(50);
end;
 
procedure maxmin;
var
  i: integer;
begin
  max := a[1];
  min := a[1];
  for i := 1 to n do
  begin
    if a[i] >= max then max := a[i];
    if a[i] <= min then min := a[i];
  end;
  if ((max - min) mod 2 = 0) then writeln('разность четная') else
    writeln('Разность нечетная');
end;
 
begin
  init_mas;
  print_mas;
  maxmin;
end.

@soRi 0 / 0 / 0 Регистрация: 29.03.2013 Сообщений: 21
		1
	линейный массив 05.04.2013, 20:16. Показов 1157. Ответов 1 Метки нет (Все метки) Дано 6 чисел, найти максимум и минимум ,определить является ли разность между максимумом и минимумом четным числом. 0

	05.04.2013, 20:37

линейный массив

Решение