информатика информатик ааа 3 задание кто знает пишем незнаете не пишите на предыдущем вопросе задание

Question

Информатика: информатика информатик ааа 3 задание кто знает пишем незнаете не пишите​ на предыдущем вопросе задание

mirko20152016 · Accepted Answer

1)//Вправо Const  n=10; type  ty=array[1..n] of integer; var  ar:ty;  i,k:integer;  procedure push(var ar:ty); var  i,c:integer; begin  c:=ar[n];  for i:=n downto 2 do  ar[i]:=ar[i-1];  ar[1]:=c; end;  begin  randomize;  writeln( Enter K: );  readln(k);  writeln( First array: );   for i:=1 to n do    begin;     ar[i]:=random(10);     write(ar[i]:4);    end;   for i:=1 to k do   push(ar);  writeln;  writeln( Final array: );   for i:=1 to n do    write(ar[i]:4); end. 2)var  a,i,b,r,n:integer;  s,se:string;...

информатика информатик ааа 3 задание кто знает пишем незнаете не пишите​ на предыдущем вопросе задание

MOGZ ответил