Предмет: Информатика,
автор: salimsoliev39
Дан массив А из 10 элементов,тип byte,найти количество отрицательных элементов
salimsoliev39:
на языке ассемблера
Ответы
Автор ответа:
0
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
Похожие вопросы
Предмет: Другие предметы,
автор: Sophiamusic7279
Предмет: История,
автор: samatovaliana4177
Предмет: Физика,
автор: zsultanmurat8162
Предмет: Физика,
автор: Wdem2000Вадим