Oleg_Rus » 22 дек 2006, 06:11
ну раздел разделом, но задачу решить надо...
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);
разбей все это на процедуры и вперед
** господа, у меня вызыват подозрение следующий момент:
как правильно запасывается "больше или равно" (<=) или (=<)
ну раздел разделом, но задачу решить надо...
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);
разбей все это на процедуры и вперед
** господа, у меня вызыват подозрение следующий момент:
как правильно запасывается "больше или равно" (<=) или (=<)