1. Информатика
  2. Заполнить массив из 10 элементов

Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и определить количество отрицательных чисел в массиве

lyudagrigoreva2 lyudagrigoreva2    2   04.10.2019 10:41    1

Ответы
sasha17210 sasha17210  09.10.2020 19:25

const n=10;

var a:array[1..n] of integer;

i,k: integer;

begin

for i:=1 to n do

begin

a[i]:=random(21)-10;

if a[i]<0 then k:=k+1;

write(a[i]:5)

end;

writeln;

writeln (k)

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
cherenko85 cherenko85  31.05.2019 23:40
Сколько чисел нужно взять в последовательности : 1+2+3+. чтобы получилось число, больше чем n? при n=252 нужно взять 23 числа программа + блок-схема....
kristinaalekse1 kristinaalekse1  31.05.2019 23:40
Врулетке 37 лунок, какова вероятность, что выпадет чёрное? красное? зеро? 12? play.casino27.ru grand-casino.com azartplaycasino.com winner.com в каких видах рулетки...
Johngear Johngear  18.05.2020 14:20
Пользователь находился в каталоге Расписание.Сначала он поднялся на один уровень вверх, затем ещё раз поднялся на один уровень вверх, потом спустился на один уровень...
shastononelove2 shastononelove2  18.05.2020 14:25
NeilВариант 1.1. Вычислить стоимость покупки, содержащей 6 книг, 3 альбомов и 5 карандашей. Стоимость товаровсоответственно А, В, С.2. Даны два круга с общим центром...
Angelona19 Angelona19  18.05.2020 14:26
Напишите программу, в которой осуществляется ввод целых чисел и подсчёт количества четных чисел. Ввод осуществляется до тех пор, пока не будет введён ноль. Используйте...
aslanovrusik44 aslanovrusik44  06.09.2020 17:26
Вычислите сколько информация хранится в книге из 50 страниц если на каждой странице размещается 40 строк а на каждой строке 60 символов 1 символ 1 байт ответ вы ОТВЕТЬте...
лерка210198 лерка210198  16.09.2019 07:30
:написать программу в paskal для нахождения площади равнобедренной трапеции с основаниями а и б (большее и меньшее соответственно) и углов а при большем основании....
Rukishka05 Rukishka05  16.09.2019 07:30
Дано разрешение 1600х1200, кол-во цветов 16777216 (24 бит) сколько нужно видеопамяти для этого разрешения?...
mixa342 mixa342  07.10.2019 06:00
Возможно ли написать на visual basic приложение с виртуальной средой ,которая сможет сохранять иконки файлов из интернета в само приложение ,а сами файлы на основную...
PomogitePLZZZzzzz PomogitePLZZZzzzz  07.10.2019 06:00
50 . , как посчитать количество слов в строке в python. с подробным объяснением каждой команды,...

Популярные вопросы