ДАЮ 100 БАЛЛОВ!! Паскаль. Дан двумерный массив А[4,5], заполненный случайным образом из диапазона чисел от 2 до 100. Найти сумму элементов массива, стоящих на главной диагонали, при условии, что их значение не превышает 20
More Questions From This User See All
Answers & Comments
type
matrix = array[1..4, 1..5] of integer;
const
max = 100;
min =2;
var
arr:matrix;
sum:integer;
begin
randomize;
sum:=0;
for var i:= 1 to 4 do
for var j:=1 to 5 do
arr[i, j]:=random(max-min+1)+min;
write('Массив заполнен случайными числами из заданного диапазона: ', #10);
for var i := 1 to 4 do
begin
for var j := 1 to 5 do
begin
write(arr[i,j]:3);
end;
write(#10);
end;
for var i:=1 to 4 do
for var j:=1 to 5 do
if (i = j) and (arr[i, j] <= 20) then
inc(sum, arr[i, j]);
write(#10, 'Сумма элементов главной диагонали, не превышающих 20 = ', sum);
end.
2. Какое назначение команды Упростить в меню КОНТУРЫ?
3. Объясните, в чем состоит эффект фрактализации?
4. Как создать ореол вокруг контура?