Предмет: Информатика,
автор: versaj
Помогите, пожалуйста. Задача в паскале абс, на одномерные массивы. Если хотя бы один элемент одномерного массива отрицательный, то вывести сообщение «ЭЛЕМЕНТ ОТРИЦАТЕЛЬНЫЙ ЕСТЬ», иначе «ВСЕ ПОЛОЖИТЕЛЬНЫЕ».
toxamactep:
Сколько элементов должно быть в массиве?
Ответы
Автор ответа:
0
var a: array of integer;
n: integer;
begin
write('Введите размер массива: ');
readln(n);
SetLength(a, n);
for var i:=0 to n-1 do
begin
a[i] := random(-2, 30);
write(a[i], ' ');
end;
writeln();
var answer := 'ВСЕ ПОЛОЖИТЕЛЬНЫЕ';
for var i:=0 to n-1 do
begin
if a[i] < 0 then
begin
answer := 'ЭЛЕМЕНТ ОТРИЦАТЕЛЬНЫЙ ЕСТЬ';
break;
end;
end;
writeln(answer);
end.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: Катя0224
Предмет: Українська мова,
автор: vasilkovchik
Предмет: Русский язык,
автор: carasyowanatal
Предмет: Математика,
автор: varuzh71
Предмет: Алгебра,
автор: Валерия1177