составить программу на...

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

  1. Jugin

    Jugin New Member

    составить программу на языке паскаль для нахождения максимального элемента в массиве из 7 элементов(целых двухзначный чисел) заданного случайнымобразом
     
    Jugin, 23 мар 2010
    #1
  2. Romantik

    Romantik New Member

    uses crt;
    var a:array [1..100] of integer;
    max,i,n:integer;
    begin
      randomize;
      for i:=1 to 7 do
      begin
        a:=random(90)+10;
        write(a,' ');
      end;
      writeln;
      max:=a[1];
      for i:=1 to n do
        if a>max then max:=a;
      write('max=',max);
    end.
     
    Romantik, 23 мар 2010
    #2

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

Наша группа