Если хотя бы один элемент однородного массива отрицательный, то вывести сообщение элемент отрицательный, если иначе- все положительные. вот так не получается: 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.
Zubkub
2
24.08.2019 21:20
0
Другие вопросы по теме Информатика
дартячтчтт
04.11.2020 16:01
Sashafedorova
17.09.2021 15:42
Караго
17.09.2021 15:51
ЮкиНайи
17.09.2021 15:53
helpme177
13.01.2021 06:04
Gelua2128
15.12.2020 14:32
spikeeesz
15.12.2020 14:32
trinadsyear
15.12.2020 14:32
Популярные вопросы
- Напишите 10 Русских слов Немецкого происхождения....
2 - Чому давньогрецькі вчені цікавились територією України яку її частину вони...
1 - Жоғарыда берілген ақпараттарды пайдаланып, хронологиялық кесте құрыңдар....
1 - Проект на тему Деньги в первой половине 19 века вид и стоимость ...
3 - Запишите в виде смешанной дроби 20_6 + 15_6...
2 - Как пишется не с глаголами докажите это примерами из текста запишите их в...
3 - Құбылысты немесе затты жалпылама қалай атайды? 1) атау 2) ат қою 3) топонимика...
3 - При якому значенні х набувають рівних значень вирази 26-4х і 12х - 7(х+4)...
3 - Решите уравнение: 7x+12=14x−9...
3 - Признаки информационных моделей(примеры)...
1
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
В массиве есть отрицательный элемент(ы)