Задать вопрос
27 марта, 15:30

Если хотя бы один элемент однородного массива отрицательный, то вывести сообщение элемент отрицательный, если иначе - все положительные.

Вот так не получается:

var f:boolean; M, N, i, j:integer; beginwriteln ('Введите элементы массива') ; read (n) ; writeln ('Исходный массив: ') ; read (n) ; for i:=1 to n dof:=true;

for i:=1 to M do for j:=1 to N doif f = false then write ('В массиве есть отрицательный элемент') ; if f = true then else write ('В массиве нет отрицательного элемента') ; end.

+2
Ответы (1)
  1. 27 марта, 17:51
    0
    Const n=10;

    var a:array[1 ... n] of integer;

    k, i:integer;

    begin

    Randomize;

    for i:=1 to n do begin

    a[i]:=random (51) - 10;

    write (a[i]:4) ;

    end;

    writeln;

    k:=0;

    for i:=1 to n do

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

    if k>0

    then writeln ('В массиве есть отрицательный элемент (ы) ')

    else writeln ('В массиве все элементы >=0') ;

    end.

    Пример:

    -5 6 - 4 13 - 1 - 6 9 30 36 36

    В массиве есть отрицательный элемент (ы)
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Если хотя бы один элемент однородного массива отрицательный, то вывести сообщение элемент отрицательный, если иначе - все положительные. ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике