на паскале составить программу нахождения количества отрицательных элементов в заданном массиве из 10 действительных чисел
10-11 класс
|
program test;
const n = 10;
var i,k:integer;
m: array[1..n] of integer;
begin
for i:=1 to n do
begin
write(' Введите [',i,'] член масива: ');
readln(m[i]);
end;
for i:=1 to n do if m[i]<0 then inc(k);
writeln('Количество чисел меньших нуля :',k);
end.
var a, i:integer;
var arrayx = array[0..10] of integer;
begin
arrayx[0] = -1;
Другие вопросы из категории
первых поколений; В-чертеж поверхности Земли; С-элемент матричного принтера
условий:
а) если вносится информатика, то вносится и физика;
б) если не , вносится история, то не вносится физика;
в) неверно, что если вносится математика, то вносится история.
записываются в файл, сжатие данных не производится. Какое из приведённых чисел наиболее близко к размеру полученного файла? 11, 12, 13, 15.
Читайте также
задание: дана матрица А(N, N). Составить программу подсчета количества положительных элементов, расположенных выше главной диагонали
блок-схему нахождения произведения отрицательных чисел с последовательностью a1, a2, a3, ..., an
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.
составить программу нахождения числ равных 0 в таблице состоящей из 15 целых чисел на pascal (маасив)
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .