//Dev-C++ 5.11 (C)
#include <stdio.h>
int main(void)
{int arr[100],n,k;
scanf("%d",&n);
k=0;
for(int i=0;i<n;i++)
scanf("%d",&arr[i]);
for(int i=0;i<n;i++)
if(i==0 && arr[i]>arr[i+1])k++;
else
if(i==n-1 && arr[i]>arr[i-1])k++;
else
if(arr[i]>arr[i-1] && arr[i]>arr[i+1])k++;
printf("%d",k);
return 0;}
Var
a, i, max: integer;
sum: real;
begin
max := 0;
sum := 0;
i := 0;
repeat
write('Введите число: ');
readln(a);
if a > 0
then begin
sum := sum + a;
i := i + 1;
end;
if max < a
then max := a;
until a = 0;
writeln(#10,'Сумма = ', sum, #10, 'Среднее арифметическое = ', sum / i, #10, 'Наибольшее число - ', max);
end.
267810/3=89270 остаток 0
89270/3=29756 ост.2
29756/3=9918 ост.2
9918/3=3306 ост.0
3306/3=1102 ост.0
1102/3=367 ост.1
367/3=122 ост. 1
122/3=40 ост. 2
40/3=13 ост. 1
13/3=4 ост 1
4/3=1 ост1
<span>267810</span>₁₀=111121100220₃
var x,y,dist:real;
begin
readln(x,y);
dist:=sqrt(x*x+y*y);
readln(x,y);
x:=sqrt(x*x+y*y);
if (x>dist) then writeln('2-я точка ближе')
else if (x<dist) then writeln('1-я точка ближе')
else writeln('Одинаково')
end.
........... реванш, музыка, шарнир, кредит