Var n,i,max:integer;
a:array [1..1000] of integer;//объявляем массив
begin
writeln('Введите количество чисел');
readln(n);
for i:=1 to n do begin
readln(a[i]);
if a[i]>max then
max:=i;
end;
writeln('Индекс максимального элемента массива =', max);
end.
Var out, i:integer;beginfor i:=50 to 100 do if i mod 10 = 3 then inc(out);write(out);end.
<em>// PascalABC.NET 3.3, сборка 1625 от 17.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(13,100,999); a.Println;
var s:=a.Where(t->t.ToString.Contains('2'));
Writeln('Сумма отобранных чисел равна ',s.Sum,
', их количество равно ',s.Count)
end.
<u>Пример</u>
447 568 576 760 708 373 474 764 520 907 654 623 414
Сумма отобранных чисел равна 1143, их количество равно 2
Function Sum(m: myarray): Integer
Var i, s : integer
sum:=0
For i:=1 To n do
(к уже найденной сумме первых (i-1) элементов прибавляем i-ый элемент)
s:=s+m[i];
sum:=s;
End;
Это все что я помню...