составте програму, которая формирует массив из шестнадцати случайных целых чисел от 20 до 20 и подсчитывает количество отрицательных элементов
5-9 класс
|
program rand;
var a:array[0..15] of integer;
i,c:integer;
begin
Randomize;
for i := 0 to 15 do
a[i] := random(-20,20);
for i := 0 to 15 do
if (a[i] < 0) then inc(c);
writeln(c ,' отрицательных чисел');
readln;
end.
Другие вопросы из категории
символ кодируется одинаковым и минимально возможным количеством бит, а каждый номер – одинаковым и минимально возможным количеством байт. Определите объем памяти, необходимый для хранения 110 автомобильных номеров.
целые двузначные числа, удовлетворящие условию: остаток от деления на 3 равен 2. (Паскаль)
Какое количество информации содержит фраза: Персональный компьютер
Читайте также
и подсчитывает количество отрицательных элементов.
язык Pascal abc
а) среднее арифметическое нечетных чисел
б) сумму чисел, не превышающих 10
в сумму чисел, кратных 3
На экран выводятся исходные значения и результаты вычислений
Плиз помогите, завтра здать нужно((