Const N=10;
var a: array [1..N] of integer;
i, p: integer;
begin
for i:=1 to N do
a[i]:= random (20);
p:=1;
if a[i] mob 2=0 then
p:=p*a[i];
writeln (a[i];
end.
Ответ:
1) комірка є найменшим елементом електронної таблиці
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p mod 3 = 0).Min.Println
end.
На самом деле не всегда. Только в тех системах программирования, где элементы двухмерного массива хранятся построчно. Некоторое ускорение выборки данных связано с тем, что при этом проще вычисляется номер элемента в одномерной последовательности элементов, интерпретируемой системой программирвания как двухмерный массив.
Если же элементы двухмерного массива хранятся по столбцам, то и обходить его быстрее по столбцам.
<u>Немецкий ученый Лейбниц</u><span>, развив идею Паскаля, </span><u>создал механический арифмометр</u>, <span>на котором можно было выполнять все четыре арифметические операции с многозначными числами. Позднее арифмометр многократно совершенствовался, </span><u>в России изобретателями П.Л. Чебышевым и В.Т. Однером были также созданы арифмометры.</u>