Регистрация
lsllalap
29.05.2022 10:49
Информатика
Есть ответ 👍

Дан массив а из 10 элементов,тип byte,найти количество отрицательных элементов

128
259
Посмотреть ответы 2

Ответы на вопрос:

AlumaZuma
AlumaZuma
4,5(34 оценок)

var

i,k: integer;

mas: array[1..10] of shortint;

begin

writeln('введите 10 чисел');

for i: =1 to 10 do

begin

read(mas[i]);

if mas[i]< 0 then inc(k);

end;

writeln('кол-во отрицательных =   ',k);

end.

1. тип byte в pascal'е от 0 до 255 то есть там априори не может быть чисел   < 0

2. я использовал знаковый byte (shortint) он от -128 до 127

elv2202
elv2202
4,5(55 оценок)
//pascalabc.net //версия 3.3, сборка 1634 begin write(readseqintegerwhile(x-> x< > 0).min); end.

Популярно: Информатика