Работа в pascal ( 9 класс , ** фотографии видео задание )

Question

Работа в pascal ( 9 класс , на фотографии видео задание )

---

Answer 1

P.S Программы написаны для Pascal.

1)

program massive;

const

 n=5;

var

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

 i: integer;

begin

 for i:=1 to n do

   begin

     writeln('Введите элемент массива');

     read(a[i]);

   end;

 writeln('Массив:')  ;

 for i:=1 to n do

  write(a[i]:4);

 writeln;  

 writeln('Массив с двойными элементами:');  

 for i:=1 to n do

   begin

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

     write(a[i]:4);

   end;  

end.  

2)

program massive;

const

 n=5;

var

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

 i: integer;

 s:real;

begin

 s:=0;

 for i:=1 to n do

   begin

     writeln('Введите элемент массива');

     read(a[i]);

   end;

 writeln('Массив:')  ;

 for i:=1 to n do

  write(a[i]:4);

 writeln;  

 for i:=1 to n do

  s:=s+a[i];

  s:=s/5;

  writeln('Среднее арифметическое:',s);

end.  

 

   

Answer 2

1)var a:array [1..5] of integer;

i: integer;

begin

write('Введите пять чисел: ');

for i:=1 to 5 do

begin

read(a[i]);

write(' ');

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

end;

writeln(' ');

write('Результат: ');

for i:=1 to 5 do

write(a[i],' ');

end.

2)var a:array [1..5] of integer;

i,s: integer;

c:real;

begin

write('Введите пять чисел: ');

for i:=1 to 5 do

begin

read(a[i]);

write(' ');

s:=a[i]+s;

end;

c:=s/5;

writeln(' ');

write('Среднее арифметическое: ',c);

end.