//pascal abc.net v3.1 сборка 1172 //1 var ar: array[1..5] of integer; i,s: integer; begin randomize; writeln('array: '); for i: =1 to 5 do begin ar[i]: =random(5,37); writeln(ar[i]); s: =s+ar[i]; end; writeln('sum=',s); end. //2 var ar: array[1..20] of integer; i,s: integer; begin randomize; writeln('array: '); for i: =1 to 20 do begin ar[i]: =random(-77,123); writeln(ar[i]); if ar[i] mod 2< > 0 then s: =s+1; end; writeln('count=',s); end. //3 var ar: array[1..5] of integer; i: integer; r: real; begin writeln('array: '); for i: =1 to 5 do begin readln(ar[i]); r: =r+ar[i]; end; r: =r/5; writeln('res=',r); end.
gutauta6
16.03.2022
//pascal abc.net v3.1 сборка 1172 //1 var a,b,c,max,i: integer; ca,cb,cc,smax: string; begin max: =-1; readln(ca); readln(cb); readln(cc); for i: =1 to 3 do begin if strtoint(ca[i])> max then begin smax: =ca; max: =strtoint(ca[i]); end; if strtoint(ca[i])> max then begin smax: =cb; max: =strtoint(ca[i]); end; if strtoint(cc[i])> max then begin smax: =cc; max: =strtoint(ca[i]); end; end; writeln(smax); end. пример ввода: 123 456 908 пример вывода: 908 //2 var n,n1: integer; s: string; begin readln(n); n1: =n; if (n=11) or (n=12) or (n=13) or (n=14) then s: ='лет' else begin n: =n mod 10; case n of 0: s: ='лет'; 1: s: ='год'; 2: s: ='года'; 3: s: ='года'; 4: s: ='года'; 5: s: ='лет'; 6: s: ='лет'; 7: s: ='лет'; 8: s: ='лет'; 9: s: ='лет'; end; end; writeln('мне ',n1,' ',s); end. пример ввода: 18 пример вывода: мне 18 лет
вот так вот, при "и" и "или"
можешь подставить свои числа для проверки)
если надо, могу и объяснить : 3