var n,a,k,sum,i,j: integer; s: string; begin sum:=0; write ('Введите количество чисел: '); readln (n); for i:=1 to n do begin write ('Введите число: '); readln (a); Str(a,s); k:=0; for j:=1 to length(s) do if s[j]='5' then k:=k+1; if k=2 then sum:=sum+a; end; writeln ('Sum = ',sum); end.
2 вариант через div и mod
var n,a,x,k,sum,i: integer; begin sum:=0; write ('Введите количество чисел: '); readln (n); for i:=1 to n do begin write ('Введите число: '); readln (a); x:=abs(a); k:=0; while x>0 do begin if x mod 10 =5 then k:=k+1; x:=x div 10; end; if k=2 then sum:=sum+a; end; writeln ('Sum = ',sum); end.
пример результата:
Введите количество чисел: 3 Введите число: 550001 Введите число: -550000 Введите число: 123456 Sum = 1
Var A:array[1..100,1..100] of integer; i,j,N,z:integer; Begin WriteLn('Введите размерность матрицы A[N,N]:'); Write('N = '); ReadLn(N); WriteLn('Как заполнить матрицу?'); WriteLn('1 - автоматически, 0 - с клавиатуры'); ReadLn(z); if z=1 then For i:= 1 to N do Begin For j:= 1 to N do Begin A[i,j]:=random(21)-10; Write(A[i,j]:3,' '); End; WriteLn End else For i:= 1 to N do For j:= 1 to N do Read(A[i,j]); z:=1; For i:= 1 to N do For j:= 1 to N do if A[i,j]<>A[j,i] then z:=0; if z=1 then WriteLn('Матрица семметрична относительно главной диагонали') else WriteLn('Матрица не семметрична относительно главной диагонали') End.
тип так