Автор Тема: Как обойтись без дополнительного массива  (Прочитано 2202 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Олькин

  • Новичок
  • *
  • Сообщений: 2
    • Просмотр профиля
     Сделала лабу, всё зачли, но встал вопрос, о том, что эту программу можно реализовать без дополнительного массива. Подскажите, пожалуйста, как это будет выглядеть.
     Вот текст программы.

Program kursovoj;
Var
  a : array[1..4,1..10] of Integer;
  i,j,n,oc,hor,pl  : Integer;
  h,sr: Real;
  hor_pl : array[1..10] of Integer;
Begin
  randomize;
  for i := 1 to 4 do
    for j := 1 to 10 do
      begin
        oc := 1+Random(5);
          while oc<2 do
            oc := 1+Random(5);
        a[i,j] := oc;
      end;
  readln;
  writeln('Оценки студентов:');
  for i := 1 to 4 do
    begin
      write(i,'- предмет ','( ');
        for j := 1 to 10 do
          write(a[i,j],' ');
      writeln(')');
    end;
  for j := 1 to 10 do
    begin
      hor_pl[j] := 5;
      for i := 1 to 4 do
        begin
          if a[i,j]<3 then
            begin
              hor_pl[j] := 2;
              Break;
            end;
        end;
    end;
  hor := 0;
  pl := 0;
  for n := 1 to 10 do
    begin
      if hor_pl[n]=2 then
        pl := pl + 1
      else
        hor := hor + 1;
    end;
  Writeln('Количество студентов, успешно сдавших экзамен - ', hor);
  Writeln('Количество двоечников - ', pl);
  Writeln('Средний бал по предметам:');
  for i := 1 to 4 do
    begin
      sr := 0;
      for j := 1 to 10 do
        sr := sr + a[i,j];
      Writeln(i, '- предмет: ', sr/10:1:2);
    end;
  Writeln('Средний бал по студентам:');
  for j := 1 to 10 do
    begin
      h := 0;
      for i := 1 to 4 do
        h := h + a[i,j];
      writeln(j, '- студент: ', h/4:1:2);
    end;
End.

 

Двумерный массив в С. Как меня организовать вывод массива в таком виде?

Автор bifshtex

Ответов: 2
Просмотров: 2546
Последний ответ 30 Марта 2010, 23:41:13
от bifshtex
помогите нарисовать блок-схемы для двумерного массива паскаль

Автор вилена

Ответов: 14
Просмотров: 7704
Последний ответ 09 Ноября 2011, 01:30:19
от вилена
Задача в Turbo С. Написать программу построения одномерного массива

Автор deamond

Ответов: 1
Просмотров: 2489
Последний ответ 21 Декабря 2011, 12:04:34
от Hellko
Помогите расположить элемента массива в заданном порядке

Автор EkaterinaOsipova

Ответов: 2
Просмотров: 3148
Последний ответ 25 Апреля 2011, 11:16:22
от Selyd
Найти среднее арифметическое положительных элементов массива

Автор FineMary

Ответов: 5
Просмотров: 11161
Последний ответ 15 Декабря 2011, 14:44:13
от Selyd