Ирганче
Кому:
Ыми
Разгадай слово!
слово, используя первые буквы названий
Составь слово, и
1.
предметов на каждом рисунке.
а»,
0 ООО
2. Составь предложение с полученным словом.​

var

a: array[1..31] of real;

i,k: integer;

min: real;

begin

min: =50;

for i: =1 to 31 do

begin

readln(a[i]);

if a[i]< min then min: =a[i];

end;

k: =0;

for i: =1 to 31 do

if a[i]=min then k: =k+1;

writeln(k);

end.

program m; uses crt; var k,s: real; i: integer; beginclrscr; for i: =1 to 10 dobegink: =i/(i+1); s: =s+k; end; writeln(s: 2: 2); readkey; end.

program;

var

max,val: integer;

label

start, ends;  

begin 

max: =-50;

val: =50;

start:

if val> max then val: =val-10

if val=max then goto ends;  

goto start;  

ends:

end. 

если его поставить так, чтоб краев рядом не было, куда-нибудь в центр. тогда он всегда будет вертется