помогите пожалуйста с...

Тема в разделе "Информатика", создана пользователем Vision, 2 янв 2010.

  1. Vision

    Vision New Member

    помогите пожалуйста с информатикой, нужно составить программу: Дан массив размером m на n. Найти среднее арифметическое для каждой нечётной строки...10класс
     
    Vision, 2 янв 2010
    #1
  2. АньЯ

    АньЯ New Member

    var
    a: array[1..10, 1..10] of integer;
    i, j, m, n: integer;
    s: real;
    begin
    readln(m, n);
    for i := 1 to m do
    begin
    s := 0;
    for j := 1 to n do
    begin
    a[i, j] := random(50);
    write(a[i, j]:3);
    if (i mod 2) = 1 then s := s + a[i, j]
    end;
    if (i mod 2) = 1 then write(' среднее ', a[i, j] / n:8:2);
    writeln;
    end;
    end.
     
     
    АньЯ, 2 янв 2010
    #2

Поделиться этой страницей

Наша группа