Создать программу в паскале используя массив:

Даны 10 чисел. Определить, сколько среди них отличные от последнего числа.

1

Ответы и объяснения

  • ali07
  • главный мозг
2011-11-24T17:15:06+00:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

program xxx;

   var i, k : integer;

          a : array [1..10] of real;

begin

  write('введите элементы массива А:');

  for i:=1 to 10 do

     readln(a[i]);

  writeln('исходный массив А:');

  for i:=1 to 10 do

     write(a[i]);

  k:=0;

  for i:=1 to 9 do

    if a[i]<>a[10] then k:=k+1;

  writeln('элементов отдичных от последнего -', k);

  readln

end.