// PascalABC.NET var gl:='кпстфхцчшщ'; zv:='бвгджзлмнр'; zi: array [1..2,1..10] of integer; //для отметок о выполнении условий для звонких s: string; i,n:integer; chet:boolean; //признак четности слова begin chet:=false; writeln('введите строку из русских слов, разделенные пробелом'); readln(s); for i:=1 to length(s) do begin n:=Pos(s[i],zv); if (chet=false) then begin delete(gl,Pos(s[i],gl),1); if n>0 then zi[1,n]:=1 //первый признак выполнен end else if n>0 then zi[2,n]:=-1; //второй признак не выполнен if s[i]=' ' then chet:=not(chet); end; writeln('глухие согласные, которых нет в нечетных словах: ',gl); write('звонкие согласные, которых нет в четных словах и которые входят хотя бы в одно нечетное: '); for i:=1 to 10 do if zi[1,i]+zi[2,i]=1 then write(zv[i]); end.
#include <limits.h>
int main() {
int n;
scanf("%d", &n);
int a[n];
int max = INT_MIN;
int n_max = 0;
int n_min = 0;
int min = INT_MAX;
for(int i = 0; i < n; i++) {
scanf("%d", &a[i]);
if(a[i]%2 == 0 && a[i] > max) {
max = a[i];
n_max = i;
}
if(a[i]%2 !=0 && a[i] < min) {
min = a[i];
n_min = i;
}
}
printf("min: %d, №%d ; max: %d, №%d\n", min,n_min,max,n_max);
return 0;
}