Var
a: array[1..100] of integer;
i, n, k: integer;
begin
readln(n);
readln(a[1]);
for i := 2 to n do
begin
readln(a[i]);
if (a[i - 1] < a[i]) then k := k + 1;
end;
writeln(k);
end.
<span>ск-ть 160 сим/мин</span>
<span>время 30 мин</span>
<span>всего 160*30=4800сим</span>
<span>3-х дюймовая дискета эт я так понимаю 3,5", тогда примерно 1,4 мегабайта... половина - это примерно 0,7 Мб или 716,8 Кб (1024*0,7) или 734003,2 байт (716,8*1024). округлим, получим 734003 байта. Если считать, что стандартный символ - это 1 байт, то имеем 734003 символа. Тогда 734003/160=4587,51875 мин. ~ 4588 мин.</span>
1.Какое действие не является этапом моделирования?
1) коллекционирование марок
2. Какие модели учитывают изменение свойств моделируемого объекта от времени: (несколько ответов)
2) подопытные животные
4) заводные игрушки
3.Какая форма отображена графической модели применима для отображения процессов происходящих во времени:
4) график
4. Имитационные модели воспроизводят поведение или работу : (несколько ответов)
1) предприятий торговли
2) погоды на завтрашний день
3) учреждений скорой помощи
4) транспортных систем
Я мало чего понял из условия. Если я правильно понял, то мы вводим 15 чисел, и хотим чтобы компьютер нам выдал только нечтные их них.
Вот эта программа работать не будет по любому хотя бы из-за того, что на строке с меткой 50 стоит <u>NEXT</u>, хотя команды <u>FOR</u> до этого не было - ошибка.
Я написал програмку так как я понял с нечетными числами:
CLS
DIM a(15)
FOR i = 1 TO 15
INPUT a(i)
NEXT i
FOR i = 1 TO 15
IF (INT(a(i) / 2)) <> (a(i) / 2) THEN PRINT a(i)
NEXT i
END
Uses GraphAbc; begin SetWindowSize(300,200); SetPenWidth(4); SetPenColor(clRed); Line(120,40,160,120); SetPenColor(clBlue ); Line(160,120,60,160); SetPenColor(clGreen); Line(60,160,120,40); end.
