Const N = 4; M = 6; Var A:array[1..N,1..M] of integer; B:array[1..N] of integer; i,j,k:integer; C:real; Begin WriteLn('Введите массив:'); For i:= 1 to N do For j:= 1 to M do Read(A[i,j]); WriteLn; Write('Введите число: ');ReadLn(C); For i:= 1 to N do Begin k:=0; For j:= 1 to M do if C<A[i,j] then k:=k+1; B[i]:=k; End; WriteLn; For i:= 1 to N do Write(B[i],' ') End.
Program pr1; Var Age:integer; Name:char; Begin Writeln('Enter your name'); Readln(name); Writeln('Enter your age'); Readln(age); If ((age>=1)and(age<=10)) then Writeln(name,', ',age,' years old, kid) Else If ((age>=11)and(age<=15)) then Writeln(name,', ',age,' years old, teenager) Else If ((age>=16)and(age<=20)) then Writeln(name,', ',age,' years old, man/girl) Else If ((age>=21)and(age<=30)) then Writeln(name,', ',age,' years old, young human) Else If ((age>=31) then Writeln(name,', ',age,' years old, adult) Else ('Error 404'); End.
Объяснение:
Все в фото