var a, b: array [1..m] of integer; i, max_num: integer;
begin for i := 1 to m do Read(a[i]); for i := 1 to m do if (a[i] mod 10 = 3) then begin b[i] := a[i]; end; max_num := b[1]; for i := 2 to m do if (b[i] > max_num) then max_num := b[i]; writeln('Max = ', max_num); end.
1. Современное решение, когда можно решить "в одну строку"
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017 // Внимание! Если программа не работает, обновите версию!
begin Writeln('S=',ReadSeqInteger(3).Select(n->n.ToString .Where(d->Pos(d,'13579')>0)).SelectMany(c->c) .Select(c->c.ToDigit).Sum) end.
Пример 252 337 105 S=24
2. А примерно вот так учат писать в школе - долго и длинно (да и не особо понятно)
var m,i,j,s,d:integer; begin s:=0; for i:=1 to 3 do begin Read(m); for j:=1 to 3 do begin d:=m mod 10; if d mod 2<>0 then s:=s+d; m:=m div 10 end end; Writeln('S=',s) end.
t1 = int(input("Сколько дней работала 1 бригада: "))
v1 = int(input("Какую длину выкопали за один день работы: "))
d1 = t1 * v1
print(f"\n1 бригада выкопала траншею {d1} метров\n\n")
t2 = int(input("Сколько дней работала 2 бригада: "))
v2 = int(input("Какую длину выкопали за один день работы: "))
d2 = t2 * v2
print(f"\n2 бригада выкопала траншею {d2} метров\n\n")
d = d1 + d2
print(f"Общая длина {d} метров")