1)var a,b,c:integer; begin writeln('Введите возраст 1 друга'); readln(a); writeln('Введите возраст 2 друга'); readln(b); writeln('Введите возраст 3 друга'); readln(c); if (a>b) and (a>c) then writeln('Старшим является 1 друг') else if (b>a) and (b>c) then writeln('Старшим является 2 друг') else writeln('Старшим является 3 друг'); end. 2)var a,b:integer; begin writeln('Введите возраст 1 друга'); readln(a); writeln('Введите возраст 2 друга'); readln(b); if a>b then writeln('Старшим является 1 друг') else writeln('Старшим является 2 друг'); end.
1) Program asd; USES crt; Const n=10; Var A:array[1..n] of integer; i,kp,s:integer; BEGIN Writeln('Массив: '); For i:=1 to n do begin A[i]:=Random(20); Write(A[i]:4); end; Writeln; For i:=1 to n do begin If A[i] mod 3=0 then s:=s+1; end; Writeln('Сумма: ' ,s); END.
2) Program asd; USES crt; Const n=10; Var A:array[1..n] of integer; i,kp,s:integer; BEGIN Writeln('Массив: '); For i:=1 to n do begin A[i]:=Random(20)-10; Write(A[i]:4); end; Writeln; For i:=1 to n do begin If A[i]<0 then s:=s+1; end; If s=0 then Writeln('Нет отр. элементов!'); Writeln('Сумма отр. элементов: ' ,s); END.
Чтобы выровнять текст по левому краю, нажмите клавиши CTRL + L.
Чтобы выровнять текст по правому краю, нажмите клавиши CTRL + R.
Чтобы выровнять текст по центру, нажмите клавиши CTRL + E.