Question

Помогите решить. Все задачи. Через паскаль

Answer 1

1)uses crt;var s,i:integer;a:array [1..5] of integer;beginfor i:=1 to 5 do begina[i]:=random(10-1+1)+1;write (a[i], ' ');end;writeln;for i:=1 to 5 do begina[i]:=a[i]-20;write(a[i], ' ');end;end.