Developing.ru

Написать программу на Паскале
Дана матрица 10x10. Элементы - случайные числа от 0 до 9.
Задачи, решаемые в процессе написания программы:
1) Сформировать матрицу
2) Вывести сформированную матрицу на экран
3) Подсчитать число элементов в каждом столбце, которые принадлежат промежутку [3;5].
Решите пожалуйста.

Не в тот раздел написал. Переместите пожалуйста в Pascal

ну раздел разделом, но задачу решить надо...
1. Формирование матрицы:
For i:=1 To 10 Do
For j:=1 To 10 Do
a[i,j]:=Random(5)+5;
2. Вывод матрицы на экран:
For i:=1 To 10 Do begin
For j:=1 To 10 Do
Write(a[i,j]);
Writeln;
End;
3. Промежуток [3;5]
For i:=1 To 10 Do
For j:=1 To 10 Do
If (a[i,j]>=3) and (a[i,j]<=5) Then Inc(k);

разбей все это на процедуры и вперед

** господа, у меня вызыват подозрение следующий момент:
как правильно запасывается "больше или равно" (<=) или (=<)

Хотя, маленькая поправка:

&quot писал(а):For i:=1 To 10 Do begin
For j:=1 To 10 Do
Write(a[i,j]);
Writeln;
End;

выпиши Write(a[i,j],' ');
Да и матрица выдаст от 0 до 10...

Oleg_Rus писал(а):** господа, у меня вызыват подозрение следующий момент:
как правильно запасывается "больше или равно" (<=) или (=<)

Как читается, так и пишется: Больше или Равно - >=, меньше или равно - <=

Кстати, ежели элементы матрицы - от 0 до 9, надо писать не a[i,j]:=Random(5)+5;, а a[i,j]:=Random(10);

&quot писал(а):Кстати, ежели элементы матрицы - от 0 до 9, надо писать не a[i,j]:=Random(5)+5;, а a[i,j]:=Random(10);

а разве Random(10) не будет задавать значение от -10 до 10?

Нет, random(x) возвращает word от 0 до х-1, random без параметров возвращает real от 0 до 0.999999999...

да-да-да! Точно, Спасибо, что просветил, Хыиуду.

Да не за что Я в этом форуме среди Дельфи и Паскаля отдыхаю от Vb и Экселя

&quot писал(а):Да не за что Я в этом форуме среди Дельфи и Паскаля отдыхаю от Vb и Экселя

Почти тоже самое, только не отдыхаю - а вспоминаю ;-)