Запишите полный текст программы и выполните её на компьютере. (программа Паскаль) i : =0;
repeat
i : =i+1;
until (a [ i ] =x) or (i =n);
if a [ i ] =x then write ( i ) else write ( ' нет ' )

Первая программа:

program n1;

var a: array[1..10] of integer;

i,k:integer;

begin

for i:=1 to 10 do a[i]:=random(100);

K:=0;

For i:=1 to 10 doIf a [i]> 50 then k:=k+1;

Write ('k=', k);

end.

Вторая программа:

program n1;

var a: array[1..10] of integer;

i,s:integer;

begin

for i:=1 to 10 do a[i]:=random(100);

s:=0;

for i:=1 to 10 doif (a [i]>50) and (a [i]<60) then s:=s+a [i];

write ('s=', s);

end.

4: 2

2|0

1|0

0|1

4₁₀=100₂

10: 2

5|0

2|1

1|0

0|1

10₁₀=1010₂

1996: 2

998|0

499|0

249|1

124|1

62|0

31|0

15|1

7|1

3|1

1|1

0|1

1996₁₀=11111001100 

100.1010.11111001100     

. в древней индии писали на камне и листьях пальмы. листья пальмы высушивали и нарезали длинными, узкими пластинами. надпись наносили тушью. если для записи использовалось более одного листа, то все написанные листы соединяли бечевкой, концы которой прикреплялись к хорошо обструганным деревянным дощечкам. пальмовые листы находились между двумя дощечками, как книга в переплете. иногда поверхность дощечек покрывали тонкими серебряными пластинами с узорной резьбой

источник информации иайл.ру