| ← Сентябрь 2021 → | ||||||
|
1
|
2
|
3
|
4
|
5
|
||
|---|---|---|---|---|---|---|
|
6
|
7
|
8
|
9
|
10
|
11
|
12
|
|
13
|
14
|
15
|
16
|
17
|
18
|
19
|
|
20
|
21
|
23
|
24
|
25
|
26
|
|
|
27
|
28
|
29
|
||||
За последние 60 дней ни разу не выходила
Сайт рассылки:
http://rusfaq.ru/
Открыта:
14-03-2002
Статистика
0 за неделю
RFpro.ru: Программирование на Delphi и Lazarus
| РАССЫЛКИ ПОРТАЛА RFPRO.RU
Лучшие эксперты в разделе
Pascal / Delphi / Lazarus
Консультация # 31481: Подскажите метод ипользования сканера документов, желательно через локальную сеть.... Консультация # 28640: Здравствуйте уважаемые эксперты! где в этом коде ошибка? getball - переменная см.приложение Спасибо!... Уважаемые эксперты! Пожалуйста, ответьте на вопрос:
Дата отправки: 22.12.2019, 23:39 Консультирует puporev (Профессор): Здравствуйте, dkhrebtovich! Код [Pascal] type mtr=array[1..20,1..20] of integer;
procedure matrix(var a:mtr;var n:integer);
var i,j:integer;
begin
repeat
writeln('Введите размер матрицы от 5 до 20');
readln(n);
until n in [5..20];
writeln('Матрица');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=10+random(90);
write(a[i,j]:3);
end;
writeln;
end;
end;
procedure count(a:mtr;n,k:integer);
var i,j,p,q:integer;
begin
q:=0;
p:=n div 2;//количество строк выше середины матрицы
if n mod 2=0 then p:=p-1;
for i:=1 to p do
for j:=i+1 to n-i do
if(j>k)and odd(a[i,j]) then inc(q);
write('Количество нечетных элементов выше диагоналей и правее столбца ',k,'=',q)
end;
var a:mtr;
n,k:integer;
begin
matrix(a,n);
repeat
write('Введите номер столбца от 1 до ',n-2,' k=');
readln(k);
until k in [1..n-2];
count(a,n,k);
end.
Подскажите метод ипользования сканера документов, желательно через локальную сеть.
Дата отправки: 14.12.2005, 17:30 Консультирует Ataman N. N.: Здравствуйте, Negruzzi Cristian!
Консультирует Denisss: Здравствуйте, Negruzzi Cristian!
Здравствуйте уважаемые эксперты!
Дата отправки: 31.10.2005, 19:29 Консультирует Ujin Antikvar: Здравствуйте, Sassoft!
Консультирует Архангельский Андрей Германови: Здравствуйте, Sassoft! Приложение:
Консультирует Маренич Владимир: Здравствуйте, Sassoft!
Консультирует Ерёмин Андрей: Здравствуйте, Sassoft!
Консультирует Schmak: Здравствуйте, Sassoft!
Консультирует Ataman N. N.: Здравствуйте, Sassoft!
Консультирует Вадим Исаев ака sir Henry (Мастер-Эксперт): Здравствуйте, Sassoft!
Оценить выпуск | Задать вопрос экспертам
главная страница
|
стать участником
|
получить консультацию
|
| В избранное | ||
