Задать вопрос Регистрация
Помочь другим

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

     

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

Ответы 1

  • 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.

    • Автор:

      sheldon
    • 6 лет назад
    • 0

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years