Var n,i,m,a: integer; begin write('Введите количество чисел (N): '); readln(n); write('Введите число: '); readln(a); m:=a; for i := 1 to n-1 do begin write('Введите число: '); readln(a); if a<m then m:=a end; writeln('Минимальное число в последовательности: ',m) end.
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.
begin
write('Введите количество чисел (N): ');
readln(n);
write('Введите число: ');
readln(a);
m:=a;
for i := 1 to n-1 do
begin
write('Введите число: ');
readln(a);
if a<m then m:=a
end;
writeln('Минимальное число в последовательности: ',m)
end.