• Обработка и поиск двумерного массива:
    Размер массива: 4х2 вещественные;
    Способ ввода: Датчик случайных чисел;
    Способ вывода: Вывод массива осуществить в виде матрицы;
    Обработка массива: Найти количество элементов равных 10;
    Поиск: Элементов, равных нулю.
    Надеюсь, среди Вас найдутся те, кто поможет мне с данной задачей.
    Ах да, баллами не обижу )
    Работать в PascalABC ( не .NET ).

Ответы 1

  • Program Pascal1;uses Crt;const  m=4;  n=2;var  a:array[1..m,1..n] of real;  i,j,k:integer;begin  ClrScr;  Randomize;  Writeln('Сформированный масcив');  k:=0;  for i:=1 to m do begin    for j:=1 to n do begin      a[i,j]:=Random(31)-15.0;      Write(a[i,j]:6:1);      if a[i,j]=10 then Inc(k)      end;    Writeln  end;  Writeln('Количество элементов, равных 10: ',k);  Write('Нулевые элементы: ');  for i:=1 to m do    for j:=1 to n do       if a[i,j]=0 then Write('a[',i,',',j,'] ');  Writelnend.Вариант выполнения:
    • Автор:

      spudvpvq
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years