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

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ матрица

Автор: Oleg55 11.10.2006 0:15

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


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


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

Автор: Oleg55 11.10.2006 1:23

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


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

Автор: 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 там, где он был у тебя, а не там, куда я его перенес, будет печататься число элементов <, >, = нулю для каждой строки, а не для всей матрицы...