Консольное приложение:
const n=10;
var a:array[1..n] of integer;
i,k:integer;
begin
Randomize;
writeln('Массив A:');

for i:=1 to n do begin
a[i]:=random(51);
write(a[i]:4)
end;
writeln;
k:=0;
writeln('номера чисел в наборе, которые меньше своего левого соседа:');
for i:=2 to n do
if a[i]<a[i-1] then begin write(i,' '); k:=k+1; end;
writeln;
writeln('k = ',k);
end.

Пример:
Массив A:
31 37 20 22 37 11 45 19 3 14
номера чисел в наборе, которые меньше своего левого соседа:
3 6 8 9
k = 4

0 0

3 года назад

Где в реальной жизни вы встречаетесь с понятием информатика?

Дмитрий159

На уроках в школах и в других учебных заведениях

0 0

4 года назад

Поиск результатов по фразе "сообщение занимает 4 страницы по 50 строк .В каждой строке записанно по 65 символов. Сколько символо

modus888 [12]

$N=2^i \\ I=K*i \\ i=I:K \\ I=8125*8=65000 \\ K=4*50*65=13000 \\ i=5 \\ N=2^5=32$

[i] = [бит]
[I] = [бит]
[K] = [символы]
[N] = [символы]

0 0

4 года назад