Program p1; var n,a,i,max,fl:integer; begin writeln('Введите кол-во участников>>'); readln(n); max:=0; fl:=0; for i:=1 to n do begin writeln('Введите кол-во правильных ответов, данных участником ',i); readln(a); if (a > max) then max:=a; if a=0 then fl:=1; end; if fl=1 then writeln('YES') else writeln('NO'); writeln('Победитель набрал ',max,' '); end.
Пример: Введите кол-во участников>> 5 Введите кол-во правильных ответов, данных участником 1 15 Введите кол-во правильных ответов, данных участником 2 18 Введите кол-во правильных ответов, данных участником 3 0 Введите кол-во правильных ответов, данных участником 4 8 Введите кол-во правильных ответов, данных участником 5 10 YES Победитель набрал
Const N = 3; Var A:array[1..N] of integer; S:integer:=0; b:boolean:=false; Begin For var i:=1 to N do Begin Read(A[i]); if (A[i]>9)and(A[i]<100)and(A[i] mod 10 = 7) then Begin S+=A[i]; b:=true; End; End; For var i:= 1 to N do Write(A[i],' '); WriteLn; if b then Write('S = ',S) else Write('Таких чисел нет') End.
Const N = 3; Var A:array[1..N] of integer; S,B:integer; Begin For var i:= 1 to N do Begin S:=0; A[i]:= random(65536)-32767; Write(A[i]:6,' '); B:=abs(A[i]); While B<>0 do Begin S:=S+ B mod 10; B:= B div 10; End; A[i]:=S; End; WriteLn; For var i:= 1 to N do Write(A[i]:6,' '); End.
const N = 3; Var A:array[1..N] of integer; Ch,Nch:integer; Begin For var i:=1 to N do Begin Read(A[i]); if A[i] mod 2 = 0 then Ch+=1 else Nch+=1; End; For var i:= 1 to N do Write(A[i],' '); WriteLn; WriteLn('Чёт = ',Ch); WriteLn('Нечет = ',Nch) End.
сместиться на вектор (х,у)
опустить перо
поднять перо
все команды, которые помню применяй