Значения элементов двухмерного массива
10-11 класс
|
const n=10;
var a:array[1..n,1..n] of integer; i,j,w:integer;
begin
for i:=1 to n do
for j:=1 to n do begin
a[i,j]:=0;
a[j,i]:=0;
end;
for i:=1 to 5 do
for j:=1 to 4 do begin
a[i,j]:=a[i,j]+5;
if(a[i,j]=10) then w:=w+1;
a[j,i]:=a[j,i]+5;
if(a[j,i]=10) then w:=w+1;
end;
writeln(w, ' элементов массива равны 10');
end.
Другие вопросы из категории
и произведение элементов с нечетными значениями
выполняются только с одного края. Механизм функционирования стека отражён в его названии «LIFO» (Last In First Out — последним вошёл, первым вышел, подобно патронам в обойме). Следовательно, любой элемент не может быть извлечён и удалён из стека раньше, чем будут извлечены все элементы, помещённые в стек позднее него. Составить программу, реализующую функционирование стека. Стек оформить как массив.
Читайте также
,который будет содержать противоположные значения элементов первого массива
2. Написать прогрумму,которая выводит на экран, разность значений двух вещественных массивов из 10 элементов.
n := 0
for i :=1 to 5 do
for j:=1 to 6-i begin
n := n + 1;
A [ i , j ] :=n;
end;
Какой элемент массива будет иметь в результате максимальное значение?
1)A[ 1 ,1 ] 2)A[ 1 , 5 ] 3)A[ 5, 1 ] 4)A [5 , 5 ]
элементов исходного массива.
порядке.
Вывести значения элементов с четными индексами.