Создать массив размером 2x10 элементов и заполнить случайными числами. Величина элементов должна быть в границах знака за запятой от -1 до 1 . Вывевсти на экран , сколько положительных, отрицательных чисел и нулей содержит массив.
вывести я то вывел, заминка в дальнейших действиях
Oleg55
11.10.2006 1:23
помогите найти ошибку.....пожалуйста....как сделать, чтобы элементы массива были в рамках от -1 до 1
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 там, где он был у тебя, а не там, куда я его перенес, будет печататься число элементов <, >, = нулю для каждой строки, а не для всей матрицы...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.