Срочно! Скласти програми до трьох задач! №1. В одновимірному ...

Дмитрий

//первая программа

var   a:array[1..10] of integer;   Sr, i:integer; begin   Sr := 0;   for i := 1 to 10 do   begin     write('a[', i, '] = ');     readln(a[i]);     if i mod 2 = 0 then       Sr := Sr + a[i];   end;   writeln('Среднее арифметическое элементов стоящих на четных местах: ', Sr /(10 div 2)); end.

 

 

//вторая программа

var  a:array[1..3, 1..3] of integer;  Pr, count, summ, i, j:integer;begin  pr := 1;  summ := 0;  count := 0;  for i := 1 to 3 do    for j := 1 to 3 do    begin      write('a[', i, ', ', j, '] = ');      readln(a[i, j]);      if i mod 2 = 1 then        pr := pr * a[i, j];      if a[i, j] < 0 then      begin        summ := summ + a[i, j];        count := count + 1;      end;    end;  writeln('Произведение элементов стоящих в четных строках: ', pr);  if count 0 then    writeln('Среднее арифметическое отрицательных элементов: ', summ / count)  else    writeln('Нет ни одного элемента отрицательного элемента');end.   

 

//третья программа

var  s:string;  c:char;  i:integer;begin  s := 'Мадагаскар';  writeln('Исходная строка: ');  writeln(s);  for i := 1 to Length(s) div 2 do  begin    c := s[i];    s[i] := s[Length(s) - i + 1];    s[Length(s) - i + 1] := c;  end;  writeln('Перевернутая строка:');  writeln(s);end.