#include <stdio.h>
#include <stdlib.h>
#include <locale.h>
int main(void)
{
setlocale(LC_ALL, "Russian");
int n, iuneven = -1;
scanf("%d", &n);
int *a = (int*)malloc(n * sizeof(int));
for (int i = 0; i < n; i++)
scanf("%d", &a[i]);
for (int i = 0; i < n; i++)
if (a[i] % 2 == 1)
{
iuneven = i;
break;
}
free(a);
iuneven == -1 ? printf("Нечетное число не найдено\n") : printf("%d\n", iuneven);
return 0;
}
Ответ:
программа Paint. Эта программа очень нужна была обществу, даже сейчас она остаётся незаменимой. На Paint можно рисовать, писать, составлять что либо и просто развлекаться.
<span>// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017</span>
begin
var t:=Arr(-2,1,3,-4,2,0,1,-3,5); t.Println;
Sort(t); t.Println;
Println('Прозведение:',t[0]*t[1]*t[2]);
end.
Напишу ответ если напишешь по русски а не по украинскому
Var N,k,sum : Integer;
Begin
sum:=0;
Readln(N,k);
While N>0 do
Begin
If (N mod 10)>k then sum:=sum+(N mod k);
N:=N div 10;
end;
end.
или так
Var N,k,sum : Integer;
Begin
sum:=0;
Readln(N,k);
While N>0 do
Begin
sum:=sum+(N mod 10)*Ord((N mod 10)>k);
N:=N div 10;
end;
end.
или так
Var N,k : Integer;
Function sum(N,k : Integer) : Integer;
Begin
If (N>0) and ((N mod 10)>k) then sum:=(N mod 10)+sum(N div 10,k) else sum:=0;
end;
Begin
Readln(N,k);
Writeln(sum(N,k));
end.