Заданий двовимірний масив A[n][m] цілих чисел. Складіть програму підрахунку кількості елементів, значення яких співпадають з сумою їх індексів.
10-11 класс
|
Язык-Pascal. Помогите пожалуйста!
const n=10; m=12;
var b:array[1..n,1..m] of integer;
i,j,k:integer;
begin
k:=0;
for i:=1 to n do
for j:=1 to n do b[i,j]:=random(30)-10;
for i:=1 to n do begin
for j:=1 to n do write(b[i,j]:5);
writeln;
end;
for i:=1 to n do
for j:=1 to n do
if b[i,j]=i+j then k:=k+1;
write ('количество искомых элементов ',k);
writeln;
end.
Другие вопросы из категории
последнее самое маленькое? Ответ ЭВМ должна вывести в виде текста-"Правда" или "Неправда"
программу для решения этой задачи
вообще не понимаю как это делать?!((
Читайте также
чисел знайти найменший елемент серед елементів побічної
д
№1. В одновимірному масиві А[1..10] порахувати середнє арифметичне елементів з парними індексами.
№2. В двовимірному масиві В[1..3,1..3] знайти добуток елементів які знаходяться на непарних рядках. Порахуваті середнє арифметичне всіх від'ємних елементів.
№3. В слові "Мадагаскар" поміняти літери місцями.
чисел. Знайти найбільший додатний елемент і найменший від’ємний елементи масиву.
в этой последовательности.
рекомендации: инверсией считать пару элементов, в которой большее число находится перед меньшим (хi>xj, если i>j)
Дано масив А[1..n]. Скласти програму підрахунку суми всіх елементів, що знаходяться між елементами А[1] і А[n].