program picaso; uses crt;
type vector=array[1..100] of integer;
var a:vector;
   i,n,k,p:byte;
begin clrscr; Randomize;
   writeln('n:');readln(n);
   writeln('a:');readln(p);
   for i:=1 to n do
   begin
       write('элемент ',i,' : ');
       readln(a[i]);
   end;
   for i:=1 to n do
       write(a[i],' ');
   k:=0;
   for i:=1 to n do
   begin
       if a[i] > p then inc(k);
   end;
   writeln('количество элементов массива, которые больше заданного числа',p,' : ',k);
end.

0 0

4 года назад

Чертёжнику был дан для исполнения следующий алгоритм: Повтори 2 раз Команда1 Сместиться на (3, 2) Сместиться на (2, 1) Конец Сме

Анатолий Лебединский

Пусть Команда1 = <span>Сместиться на (х1,у1)
Чтоб вернуться в ту же точку</span>, надо чтоб смещение было (0;0)

dx = 0 = 2(x1+3+2)-6 = 0, x1=-2
dy = 0 = 2(y1+2+1)-4 = 0, y1=-1
Команда1 = <span>Сместиться на (-2,-1)</span>

0 0

4 года назад

Помогите пожалуйста по информатике плиз

kabzone

Надеюсь, что так)
По крайней мере нас на информатике вот так гоняли.
rghost.**ru/68dDLdlX4-звёздочки сотри)
Вот так

0 0

4 года назад

В школе продолжительность каждого урока 45 минут, а перемены между уроками - 5 минут. Первый урок начинается 8 часов утра. напиш

Lana909 [114]

8 00-8 45
8 50-9 35
9 40-10 25
10 30- 11 15
11 20-12 05

0 0

4 года назад