Найти количество элементов массива, отличных от значения последнего элемента

@Vitya Bodnar · Регистрация: 11.03.2016

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

массив из 50 чисел и заполнить его случайными числами.сколько в нем элементов, отличных от последнегоелемента

@Peoples · 05.04.2016, 21:36

Pascal

program pr;
 
const
  n = 50;
 
var
  a: array [1..n] of integer;
  cout, i: integer;
 
begin
  for i := 1 to n do
  begin
    a[i] := random(21);
    write(a[i]:3);
  end;
  cout := 0;
  for i := 1 to n do
    if a[i] <> a[n] then
    begin
      cout := cout + 1;
    end;
  writeln;
  writeln('Количество элементов отличных от последнего: ', cout);
end.

@bormant · 05.04.2016, 22:39

Peoples,
забыли Randomize.

Можно сократить до

Pascal

const n=50;
var
  a: array [1..n] of Integer;
  i, t, c: Integer;
begin
  Randomize;
  for i:=1 to n do begin
    a[i]:=Random(100); Write(' ',a[i]);
  end; WriteLn;
  t:=a[n]; for i:=1 to n-1 do Inc(c,Ord(a[i]<>t));
  WriteLn(c);
end.

@Vitya Bodnar 0 / 0 / 0 Регистрация: 11.03.2016 Сообщений: 7
		1
	Найти количество элементов массива, отличных от значения последнего элемента 05.04.2016, 21:28. Показов 1851. Ответов 2 Метки нет (Все метки) массив из 50 чисел и заполнить его случайными числами.сколько в нем элементов, отличных от последнегоелемента 0

	05.04.2016, 22:39

Опции темы

Найти количество элементов массива, отличных от значения последнего элемента

Решение