Определить порядковый номер числа, отличного от остальных - Pascal

  1. Даны три целых числа, одно из которых отлично от двух других, равных между собой. Определить порядковый номер числа, отличного от остальных.

textual

Код:

var
  a,b,c:integer;
begin
  write('Введите 3 числа:');readln(a,b,c);
  if a=b then writeln('3') else 
    if a=c then writeln('2') else writeln('1');
end.

Похожие ответы
  1. Определить максимальный элемент массива В(50) и его порядковый номер.

  1. В массиве хранится информация о максимальной скорости каждой из 40 марок легковых автомобилей. Определить порядковый номер самого быстрого автомобиля.Если таких автомобилей несколько,то должен быть найден номер: a) первого из них; б) последнего из них.

  1. Помогите пожалуйста!Ввести с клавиатуры массив B2 [N]. Определить максимальный элемент массива и его порядковый номер. N вводится с клавиатуры. 0< N <20.

  1. Всем привет! помогите пожалуйста срочно решить задачи №2. Определить порядковый номер элемента последовательности 21, 22, 23,…,2n, значение которого превысит 100. Заранее благодарю)) Спасибо

  1. В массиве хранится информация о годе рождения каждого из 30 человек. Определить порядковый номер самого старшего по возрасту человека. Если таких людей несколько, то должен быть найден номер: а) первого из них; б) последнего из них. При определении возраста учитывать только год рождения (месяц и день не учитывать).

  1. Дана непустая последовательность различных целых чисел, за которой следует нуль. Определить порядковый номер и величину наибольшего среди отрицательных чисел этой последовательности.

  1. Помогите с задачкой на массив: Найти минимальный элемент массива B(15) и определить его порядковый номер.

  1. Данны 4 числа Определить порядковый номер наименшого среди них! Надо написать программу на algo Всем спасибо!

  1. Код Код program massiv; uses crt; const n=50; type t=array [1..n] of integer; var a:t; i:integer; m:integer; begin clrscr; randomize; read(m); for i:=1 to m do a[i]:=5-random(10); for i:=1 to m do if a[i]>0 then writeln('i=',i); for i:=1 to m do writeln('a[',i,']=',a[i]); end. всё тут сделано но нужно чтобы не все положительные элименты, а нужно чтобы только 1-ый положительный элимент выводил, а остальные нет! как это сделать ?


Нашли ошибку?
Развитие проекта
Яндекс.Метрика