Question

Скласти програми до трьох ! №1. в одновимірному масиві а[1..10] порахувати середнє арифметичне елементів з парними індексами. №2. в двовимірному масиві в[1..3,1..3] знайти добуток елементів які знаходяться на непарних рядках. порахуваті середнє арифметичне всіх від'ємних елементів. №3. в слові "мадагаскар" поміняти літери місцями.

Answer 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.