Консультации Портала - Консультация #197031

Задать вопрос Консультации Пользователи Форум

Задать вопрос экспертам

Консультация № 197031

10.11.2019, 11:18

0.00 руб.

0 4 1

Компьютеры Программирование

Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:

Вычислить количество четных элементов в области ниже строки k и выше главной диагонали.

Приложение:
Pascal / Delphi

Обсуждение

давно

puporev

Профессор
401888
1232

10.11.2019, 13:02

общий

это ответ

Здравствуйте, bodya!
Для Паскаля или консоли Делфи.

[code lang=pascal]var a:array[1..15,1..15] of integer;
n,m,k,i,j,q:integer;
begin
repeat
write('Введите размер матрицы от 3 до 15 n=');
readln(n);
until n in [3..15];
randomize;
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;
repeat
write('Введите номер строки от 1 до ',n-2,' k=');
readln(k);
until k in [1..n-2];
q:=0;
for i:=k+1 to n-1 do
for j:=i+1 to n do
if a[i,j] mod 2=0 then inc(q);
write('Количество четных элементов ниже строки ',k,' и выше главной диагонали=',q)
end.[/code]

давно

bodya

Посетитель
403420
4

10.11.2019, 23:21

общий

Адресаты:

можно с процедууроми ?

давно

puporev

Профессор
401888
1232

11.11.2019, 07:58

общий

Адресаты:

[code lang=pascal]type mtr=array[1..15,1..15] of integer;
procedure vvod(var a:mtr;var n:integer);
var i,j:integer;
begin
repeat
write('Введите размер матрицы от 3 до 15 n=');
readln(n);
until n in [3..15];
randomize;
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 q:integer);
var i,j:integer;
begin
q:=0;
for i:=k+1 to n-1 do
for j:=i+1 to n do
if a[i,j] mod 2=0 then inc(q);
write('Количество четных элементов ниже строки ',k,' и выше главной диагонали=',q)
end;
var a:mtr;
n,k,q:integer;
begin
vvod(a,n);
repeat
write('Введите номер строки от 1 до ',n-2,' k=');
readln(k);
until k in [1..n-2];
count(a,n,k,q);
end.[/code]

давно

bodya

Посетитель
403420
4

12.11.2019, 17:50

общий

Адресаты:

блок схему можно ?

Форма ответа

Отправка постов/ответов доступна только зарегистрированным и подтвержденным пользователям.

Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.