Ответ.
Меню
Задать вопрос!
Вход
Регистрация
Задать вопрос!
Меню
Все категории
Фотография и видеосъемка
Знания
Другое
Гороскопы, магия, гадания
Общество и политика
Образование
Путешествия и туризм
Искусство и культура
Города и страны
Строительство и ремонт
Работа и карьера
Спорт
Стиль и красота
Юридическая консультация
Компьютеры и интернет
Товары и услуги
Темы для взрослых
Семья и дом
Животные и растения
Еда и кулинария
Здоровье и медицина
Авто и мото
Бизнес и финансы
Философия, непознанное
Досуг и развлечения
Знакомства, любовь, отношения
Наука и техника
cosa11
[1]
9 месяцев назад
12
Задано линейный массив a [1.
.6]. Найти общее количество нулевых (N), положительных (D), отрицательных (V) элементов заданного массива. Нужно сделать программу в Free Pascal. Есть уже сделанный алгоритм
Знания
Информатика
Ответить
Комментировать
Отправить
1
ответ:
bifol
9 месяцев назад
0
0
Var a: array[1..6] of integer;
i, k, d, v, n: integer;
begin
for i:=1 to 6 do
begin
write('Введите элемент массива под номером ', i, ' = ');
readln(a[i]);
end;
k:=0;
d:=0;
v:=0;
n:=6;
for i:=1 to n do
if a[i]=0 then
k:=k+1
else
if a[i]>0 then
d:=d+1
else
if a[i]<0 then
v:=v+1;
writeln('Количество нулевых = ', k);
writeln('Количество положительных = ', d);
writeln('Количество отрицательных = ', v);
end.
Отправить
Читайте также
Какие логические функции вам известны ?
Чертенок
Функция:
Ложь-Истина
Или
0
0
4 года назад
Безопасность это… А) состояние, при котором не угрожает опасность Б) полноты и совершенствования информации В) установление соот
galllana [14]
A) состояние, при котором не угрожает опастность.
0
0
3 года назад
Прочитать ещё 2 ответа
Два сообщения состоят из одинакового количества символов. Первое записано с помощью 1024-символьного алфавита, а второе – с помо
Viktoriasm [17]
Решаем задачу по формуле N = 2i
N- мощность алфавита
i - вес одного символа (в битах)
N = 16, следовательно i = 4 (16 = 24)
N = 256, следовательно i = 8 (256 = 28)
Ответ: в 2 раза
0
0
4 года назад
Даны два числа а и в. Получить их сумму, разность и произведение
Demonrax67 [114]
var a,b:integer;
begin
readln(a,b);
writeln(a+b,a-b,a*b);
end.
0
0
4 года назад
Помогите пожалуйста, решение на Паскале или питоне
melisa [58]
Ответ:
Кто в 2019 учит паскаль?
0
0
2 года назад
Смотрите также:
Определи значение переменной a после выполнения фрагмента алгоритма при a=3 и a=6. Ввод а если a>5 то a:=a+20 иначе a:=a*10 в
14
·
1 ответ
Помогите разобраться в задаче и в её решении. Информационный объем текста, подготовленного с помощью компьютера, равен 3,5 Кб. С
5
·
1 ответ
Злая мачеха отправила падчерицу к роднику за водой."Вот тебе 2 ведра, в одно из них входит 9 лтров воды, а в другое -5 литров.Но
9
·
1 ответ
Срочно!!! Помогите!!! Отмечу лучшим ответом
10
·
1 ответ
В каких случаях можно знаки формальных языков включать в тексты на естественном языке? Где вы с этим встречались? Приведите прим
6
·
1 ответ
Найдите ошибку,ибо выдает он всегда,что спортсмен не проходит,даже если сумма 100,а общее количество 60.!!!В массиве хранится ин
6
·
1 ответ
Помогите с задачей В барабане для розыгрыша лотереи находится 8 шаров. Сколько информации содержит сообщение о первом выпавшем н
14
·
1 ответ
Домашнее задание от 24.04.2017 Задание 1. Запишите значение переменной s, полученное в результате работы следующей программы. Те
5
·
1 ответ
Почему 10-1=1? Нужна помощь
6
·
1 ответ
ПАСКАЛЬ Напишите программу для нахождения всех собственных делителей целого числа N ( т.е. Всех чисел , меньших N , на которые о
7
·
1 ответ
×
Добавить ответ
Отправить
×
Вход
E-mail
Пароль
Запомнить меня
Войти
Не зарегистрированы?
Пройти быструю регистрацию
×
Регистрация
Ваше имя
E-mail
Пароль
Зарегистрироваться
close
Вход
Регистрация
Задать вопрос!