Ввести с клавиатуры массив А из 15 вещественных чисел. Вывести на экран номер первого отрицательного эл

@Марьюш · Регистрация: 16.05.2017

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

Ввести с клавиатуры массив А из 15 вещественных чисел. Вывести на экран номер первого отрицательного элемента массива. Если таких элементов нет, то вывести надпись "отрицательных элементов нет".

@Hitoku · 17.05.2017, 01:22

Pascal

const n = 15;
var
  a: array [1..n] of real;
  i, im: byte;
  b: boolean;
begin
  b := true;
  for i := 1 to n do begin
    write('a[', i, '] = ');
    readln(a[i]);
    if (a[i] < 0) and b then begin
      b := false;
      im := i;
    end;
  end;
  for i := 1 to n do write(a[i], ' ');
  writeln;
  if not b then writeln('Номер первого отрицательного элемента: ', im)
    else writeln('Отрицательных элементов нет');
end.

@Марьюш 0 / 0 / 0 Регистрация: 16.05.2017 Сообщений: 4
		1
	Ввести с клавиатуры массив А из 15 вещественных чисел. Вывести на экран номер первого отрицательного эл 16.05.2017, 20:45. Показов 3906. Ответов 1 Метки нет (Все метки) Ввести с клавиатуры массив А из 15 вещественных чисел. Вывести на экран номер первого отрицательного элемента массива. Если таких элементов нет, то вывести надпись "отрицательных элементов нет". 0

	17.05.2017, 01:22

Опции темы

Ввести с клавиатуры массив А из 15 вещественных чисел. Вывести на экран номер первого отрицательного эл

Решение