ТУРАГЕНТСТВО
id - integer (счетчик, ключ)
название тура - varchar
список стран - varchar
стоимость - float
ВИДЕОТЕКА
id - integer (счетчик, ключ)
название фильма - varchar
оргинальное название - varchar
год выпуска - integer
стоимость - float
АВТОСАЛОН
id - integer (счетчик, ключ)
марка машины - varchar
производитель - varchar
цвет - varchar
год выпуска - integer
стоимость - float
РЕГИОНЫ
id - integer (счетчик, ключ)
название - varchar
главный город - varchar
диапазон индексов - varchar
<h3>// PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>// Внимание! Если программа не работает, обновите версию!</h3><h2>С массивом</h2>
begin
var a := ReadArrInteger(ReadlnInteger);
var (i, v) := a.Numerate.Where(t -> t[1].IsEven and (t[1] mod 10 = 8))
.MinBy(t -> t[1]);
i.Println
end.
<h2>С последовательностью</h2>
begin
var (n, min, i, imin) := (ReadlnInteger, integer.MaxValue, 1, 1);
var s := ReadSeqInteger(n);
foreach var t in s do
begin
if (t < min) and t.IsEven and (t mod 10 = 8) then
(min, imin) := (t, i);
Inc(i)
end;
imin.Println
end.
<u /><em></em><em>VAR</em>
<em> n, m, sum, i, j: Integer;</em>
<em> a: Array [1..10000] of Array [1..10000] of Integer;</em>
<em>BEGIN</em>
<em> Read(n, m);</em>
<em></em>
<em> For i := 1 to n do</em>
<em> For j := 1 to m do Read(a[i][j]);</em>
<em></em>
<em> For i := 1 to n do</em>
<em> For j := 1 to m do</em>
<em> If (a[i][j] > 0) then sum := sum + a[i][j];</em>
<em></em>
<em> Write(sum);</em>
<em>END. </em>
<em></em>
<u>Но для экономии времени и сил можно не создавать массив:</u>
<em>VAR</em>
<span><em> n, m, sum, el, i, j: Integer;</em></span>
<em>BEGIN</em>
<span><em> Read(n, m);</em></span>
<em></em>
<span><em> For i := 1 to n do</em></span>
<span><em> For j := 1 to m do begin </em></span>
<span><em> Read(el);</em></span>
<span><em> If (el > 0) then sum := sum + el;</em></span>
<span><em> End;</em></span>
<em></em>
<span><em> Write(sum);</em></span>
<em>END.</em>
program n1;
var:a,b,c,s,r:integer;
begin
if a>7 then s:=b+c else r:=b-c
end:
end.