Решите задачу по информатике в программе паскаль, пожалуйста. В массиве А(5) посчитать кол-во положительных и кол-во отрицательных чисел.
10-11 класс
|
var
A : Array [1..5] of Integer;
i, e, k : Integer;
begin
e := 0;
k := 0;
// Здесь задаешь массив
for i := 1 to 5 do
if A[i] >= 0 then inc(e) else inc(k);
Writeln('Положительных ', i)
Writeln('Отрицательных', i)
end.
Другие вопросы из категории
1 задания: перевидите числа в десятичную систему счисления
а) 10101011 в степени 2
б) 1011,101 в степени 2
2 задания: переведите число 1011001011110010 в степени 2
а) в восьмеричную систему счисления
б) в 16-ричную систему счисления
3 задания:выполнить действия
а) 10110,11 в степени 2 + 1101,01 в степени 2
б) 101 в степени 2 умножить 111 в степени 2!
then j := j + 1; Чему будет равно значение переменной j после выполнения этого алгоритма?
8 минут, ее результаты записываются в файл, сжатие данных не производится. Какое из приведенных ниже чисел наиболее близко к размеру полученного файла, выраженному в Мбайтах?
решением?методические указания приветствуются)
Читайте также
среди них нулей! Пожалуйста!
1. Напишите программу формирования и вывода массива размером 6x3, каждые три последовательных элемента в строке которого составлены по следующему правилу:
1-й — равен случайному числу;
2-й — равен целой части квадратного корня из предыдущего элемента;
3-й-равен сумме двух предыдущих элементов.
в заповедник выпустили z зверей. за год количество особей увличивается на определенный процент. Сколько зврей будет через определенное время?
1. условие задачи
2. математическая модель
3. список переменных с их расшифровкой
4. блок- схема алгоритма
5. программный код