1. крышка3. курсор.5. окумулятр
НАВЕРНО ДА?! Я ТОЧНО НЕ ЗНАЮ
Uses crt;
var a:array [1..100] of integer;
k,n,i:integer;
begin
clrscr;
write('Введите количество элементов массива=');
readln(n);
randomize;
for i:=1 to n do
a[i]:=random(45)-20;
writeln('Исходный массив');
for i:=1 to n do
write(a[i]:6);
writeln;
for i:=1 to n-1 do
if a[i+1]>a[i] then
writeln('Индексы: ',i:3);
writeln;
readln;
end.
Задача:
<em>1)84-6=78(ч.)-играют в комп.игры;
</em><em>2)78-53=25(ч.)-предпочитают квесты;
</em><em>3)78-63=15(ч.</em><em>)-предпочитают аркады;
4)78-(25+15)=38(ч.)-играют в квесты и аркады.
</em>Ответ:<em /><em> 38 человек.
</em>