Ответ:
10
Объяснение:
От А по А 1 столбец
От 1 по 10 количество строк: (10-1)+1=10
количество столбец * количество строк = 1*10 =10
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := MatrRandom(3, 3, -99, 99);
a.Println(4); Writeln(4 * a.ColCount * '-');
var s := 0;
for var i := 0 to 2 do s += a[i, i];
Println('Сумма элементов главной диагнонали:', s)
end.
<h2> 16 19 97</h2><h2> 11 -97 14</h2><h2> 24 40 -38</h2><h2>------------</h2><h2>Сумма элементов главной диагнонали: -119 </h2>
32 цвета составляют 2 байта. Значит количество точек на изображении 64000
Uses crt;
var r: array [1..10] of integer;
nev, n, min,i, zap:integer;
begin
clrscr;
write('Введите возраст невесты: '); readln(nev);
write('Введите число женихов: '); readln(n);
if n<2 then
for i:=1 to n do
begin
write('Введите возраст ',i,'-го жениха: '); readln(r[i]);
end;
i:=0; zap:=0;
while (zap=0) and (i<=n) do begin
i:=i+1;
min:=nev-r[i];
if min>0 then zap:=i;
end;
if i<>n then
begin
for i:=zap to n do
begin
if min>(nev-r[i]) then
begin
zap:=i;
min:=nev-r[i];
end;
end;
writeln('Самый молодой жених старше невесты в возрасте ',r[zap], ' лет. Разница в возрасте составляет ', min, ' лет.');
writeln ('По счету это ',i,'-ый жених');
end
else writeln('Среди женихов нет подходящего для нашей невесты.');
end;
else writeln('Число женихов должно быть более 2!');
end.
