Uses Crt; Const N = 13; Var A:array[1..N] of integer; i,k:integer; Begin ClrScr; Randomize; k:=0; Write('Исходный массив:'); For i:= 1 to N do Begin A[i]:=random(65)-20; Write(' ',A[i]); if A[i] < 0 then k:=k+1 End; WriteLn; WriteLn('Количество отрицательных чисел: ',k); ReadLn End.
Объект - то, что существует вне нас и независимо от нашего сознания, явление внешнего мира. Модель – это некий заменитель объекта, процесса или явления, который в определенных условиях может заменить оригинал Информационные модели представляют объекты или процессы в образной или знаковой форме. Рисунки, фотографии, учебные плакаты . Вербальные модели – мысленные модели. Используется для передачи мыслей.
1) Б) Здание – пенопластовый макет – проект В) Земной шар – глобус – карта Д) Самолет – модель из картона – чертежи
2) А) Характеристика главного героя в литературном произведении
4 задача: 1) 32*60*10=19200 Кбит в 10 мин 2) 19200:8=2400 Кбайт в 10 мин
2 задача: Переводом кбайты в биты: 9•1024•8=73728 73728/36=2048(бит/сек) скорость соединения 2048+1024=3072(бит/сек) - скорость нового соединения 73728/3072=24 секунды
3 задача: 256 бит в секунду = 256/8 байт в секунду = 32 байт в секунду файл в 2 Кибайта передается за 2048/32 = 64 секунды. другое соединение - 2048 бит/с = 256 байт/с за 64 с передастся 256 * 64 = 16384 байта или 16 Килобайт
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-20,40); a.Println;
Writeln('Кол-во отрицательных: ',a.Where(x->x<0).Count)
end.
Пример
n= 15
-1 -10 1 -7 2 4 -10 -5 9 -1 -16 -3 16 -7 6
Кол-во отрицательных: 9