Program zz;var a:array[1..15] of integer;i:integer;beginfor i:=1 to 15 dobegina[i]:=random(5,50);write(a[i],' ');endend.
Есть много решение этой задачи. Вот моё.
program n_1;var a:real;beginread(a);a:= a / 2;writeln(a,' ',a);end.
Const N = 5;var a: array [1..N] of integer;k,i:integer;begink:=maxint;for i:= 1 to N do readln (a[i]);for i:=1 to N do beginif (i mod 2 = 0) and (a[i]<k) then k:= a[i] end;writeln (k);end.
Когда я собрал своего робота, я задумался какие функции он должен выполнять? Сразу пришла идея заставить его делать по дому:убираться, мыть посуду, пылесосить, но это было скучно и однообразно. Тогда я решил, что пускай он будет помогать родине, как стоматолог - имплантолог , пусть помогает обрести людям красивую голливудскую улыбку.