Составьте алгоритм (в...

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

  1. KosmosnoL

    KosmosnoL New Member

    Составьте алгоритм (в виде блок схемы или в ПАСКАЛе), находящий элементы 20 (хотя бы один такой элемент долженприсутствовать) в произвольном n-элементном массиве. ПЖЛ ОЧ НАДО!!!!
     
    KosmosnoL, 13 фев 2010
    #1
  2. Dmitry.Klimchenia

    Dmitry.Klimchenia New Member

    var a:array[1..100] of real;
    i,n:integer;
    begin
      randomize;
      write('n='); read(n);
      for i:=1 to n do
        a:=random(101)-50;
      i:=random(n+1); a:=20;
      write('nomer elementa:');
      writeln;
      for i:=1 to n do
        if a=20 then write(i);
    end.
     
    Dmitry.Klimchenia, 13 фев 2010
    #2

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

Наша группа