Question

Инфаааа !!!Срочноооо!!!! Язык паскаль!!!! Напишите решение

Answer 1

Ответ:

Объяснение:

var

a:array [1..7] of integer;

i:integer;

begin

for i:=1 to 7 do  

  begin

    a[i]:=random(61);

    write(a[i],' ');

    a[i]:=a[i]-10;

  end;

for i:=1 to 7 do

  write(a[i],' ');

end.

2)

const

n=15;

var

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

i:integer;

begin

for i:=1 to n do

  readln(a[i]);

for i:=1 to n do

  begin

    a[i]:=a[i]*4;

    write(a[i],' ');

  end;

end.