40 составьте блок-схему к
запишите, используя функцию случайных чисел, заполнить числовой массив a, причем элементы массива должны представлять собой числа из отрезка (0,100)
begin
var n : = readinteger('n =');
var a : = arrrandom(n, 0, 100);
a.println
end.
=$B$3 + 5*F2
Объяснение:
Ссылки в электронной таблице:
1) Относительные ссылки - ссылки, в которых просто указываются буква столбца и номер строки (А1). При копировании изменяются: влево и в право изменяются названия столбца, вверх и вниз номер строки.
2) Абсолютные ссылки - ссылки в которых перед буквой столбца и номером строки ставится знак $ (знак неизменности ссылки) ($A$1). При копировании не изменяются.
3) Смешанные ссылки - ссылки, которые имеют признаки относительных и абсолютных ссылок одновременно ($A1 или A$1). При копировании изменяются только те столбцы или строки перед которыми нет знака $.
=$B$3 + 5*E1 - формула в ячейке C4 содержит 2 вида ссылок
Левая часть $B$3 представляет собой абсолютную ссылку, которая при копировании не изменится
После копирования левая часть останется без изменений: $B$3
Правая часть 5*E1 содержит относительную ссылку (E1), которая изменится при копировании.
Ячейка в которую копируется формула (D5), находится на 1 столбец правее и на 1 строку ниже, чем исходная ячейка (C4).
Следовательно и столбец и строка копируемой относительной ссылки изменится на 1. Столбец E будет заменён следующим за ним столбцом F, а строка будет увеличена на 1, т.е. станет равна 2 (1 + 1 = 2).
После копирования правая часть примет вид: 5*F2
begin
var a:=MatrixRandom(7,7,0,9);
var k:=0;
for var i:=0 to 6 do begin
for var j:=0 to 6 do begin
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.
Тестовое решение:
2 1 7 3 3 2 7
9 2 9 2 0 5 5
4 2 6 9 4 6 0
1 0 3 5 4 5 9
6 3 6 0 2 0 8
0 8 4 3 2 1 8
6 0 4 4 5 4 0
Кол-во элементов на [1,5]: 27
Вариант "совсем для школы"
const
n=7;
var
a:array[1..n,1..n] of integer;
i,j,k:integer;
begin
Randomize;
k:=0;
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=Random(10);
Write(a[i,j]:3);
if a[i,j] in [1..5] then Inc(k)
end;
Writeln
end;
Writeln('Кол-во элементов на [1,5]: ',k)
end.