| ← Апрель 2020 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
||
|---|---|---|---|---|---|---|
|
6
|
7
|
8
|
9
|
10
|
11
|
12
|
|
13
|
16
|
17
|
18
|
|||
|
21
|
22
|
23
|
24
|
|||
|
30
|
||||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
∙ Pascal / Delphi / Lazarus
Консультация # 198354: Уважаемые эксперты! Пожалуйста, ответьте на вопрос: записать на место отрицательных элементов матрицы нули и отразить её в общепринятом виде. D(K,K) K<=0 Pascal... Здравствуйте! У меня возникли сложности с таким вопросом:
Дата отправки: 23.04.2020, 15:51 Консультирует Delph (3-й класс): Здравствуйте, Ericsson! Код (Pascal) :: выделить код Program Q198352;
Const N = 40;
Max = 250;
Var i, j: Integer;
C: Array[1..N] of Integer;
Begin
Randomize; // инициализация генератора случайных чисел
WriteLn('Массив, заполненный случайными числами:');
for i := 1 to N do
Begin
C[i] := Random(Max); // кладём в ячейку случайное число
Write(C[i]:8); // и выводим его на экран
End;
WriteLn;
j := 1;
for i := 2 to N do
if C[j] > C[i] then j := i;
WriteLn('Минимальный элемент C[', j, '] = ', C[j]);
WriteLn; ReadLn;
End.
Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 23.04.2020, 15:57 Консультирует Зенченко Константин Николаевич (Старший модератор): Здравствуйте, Ericsson! Код (Pascal) :: выделить код const
n=10;
var
a:array[1..n,1..n]of integer;
b,c:integer;
begin
writeln('Matrix:');
for b:=1 to n do
begin
for c:=1 to n do
begin
a[b,c]:=random(3*n)-n;
write(a[b,c]:3);
end;
writeln;
end;
for b:=1 to n do
for c:=1 to n do
if a[b,c]<0 then a[b,c]:=0;
writeln('Result:');
for b:=1 to n do
begin
for c:=1 to n do
write(a[b,c]:3);
writeln;
end;
end.Удачи!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
