пока i<=50 делай нц если a[i]>max то нц max:=a[i]; n_max:=i; кц если a[i]<min то нц min:=a[i]; n_min:=i; кц если (i mod 2)==0 то sum:=sum+a[i]; k:=k+1; кц
srednee_znachenie:=sum/k;
//
var a:array(10..50) of integer; max,min,n_min,n_max,k,i,sum:integer; sr:float;
begin max:=a[1]; min:=a[1];
for i:=10 to 50 do begin if a[i]>max then begin max:=a[i]; n_max:=i; end; if a[i]<min then begin min:=a[i] n_min:=i; end; if ((i mod 2)=0) then begin k:=k+1; sum:=a[i]+sum; end; end; end;
#include <stdio.h>
#include <iostream>
#include <stdlib.h>
using namespace std;
#define kolichestvo 4
int main()
{
int chislo, i, j;
char str [5];
bool flag= false;
cin>>chislo;
itoa (chislo, str, 10);
for (i= 0; i< kolichestvo- 1; i++)
for (j= i+ 1; j< kolichestvo; j++)
if (str[i]== str[j]) {
j= kolichestvo;
i= kolichestvo- 1;
flag = true;
}
printf ("%x\n", flag);
getchar ();
getchar ();
return 0;
}
Объяснение: