Версия для печати темы

Автор: Oleg55 11.10.2006 0:15

Создать массив размером 2x10 элементов и заполнить случайными числами. Величина элементов должна быть в границах знака за запятой от -1 до 1 . Вывевсти на экран , сколько положительных, отрицательных чисел и нулей содержит массив.


вывести я то вывел, заминка в дальнейших действиях


Прикрепленные файлы
 UZD3.PAS ( 169 байт ) Кол-во скачиваний: 252

Автор: Oleg55 11.10.2006 1:23

помогите найти ошибку.....пожалуйста....как сделать, чтобы элементы массива были в рамках от -1 до 1


Прикрепленные файлы
 UZD3.PAS ( 509 байт ) Кол-во скачиваний: 206

Автор: volvo 11.10.2006 1:39

program uzd3;
uses crt;
const n=2;m=10;
var
  mas:array[1..n,1..m]of integer;
  i,j,max,min,nulle:integer;
begin
  randomize;
  clrscr;
  min:=0;
  max:=0;
  nulle:=0;
  for i:=1 to n do begin
    for j:=1 to m do begin { <--- Первая ошибка: почему было до N ? }
      mas[i,j]:=random(3)-1; { <-- Интервал: от -1 до 1}
      if mas[i,j]>0 then max:=max+1
      else
        if mas[i,j]<0 then min:=min+1
        else nulle:=nulle+1;
      write(mas[i,j]:3,'I'); { <--- :3 добавлено, чтобы получалось красивее }
    end;
    writeln;
  end; { <--- Вторая ошибка: это было не здесь, а ниже}
  writeln;
  writeln('lielaki par 0==>',max);
  writeln('mezakie par 0==>',min);
  writeln('vienadi ar 0==>',nulle);
end.

Если оставить End там, где он был у тебя, а не там, куда я его перенес, будет печататься число элементов <, >, = нулю для каждой строки, а не для всей матрицы...