Кол-во непарных элементов массива const n = 5; var a: array[1..n] of integer; i, c: integer; begin c : = 0; for i: =1 to n do begin readln(a[i]); if mod(a[i])< > o then c: =c+1 end; writeln(c); end. ему мод не нравится в условии=( что делать?

Const n=5; var mas: array[1..n] of integer; i,sum: integer; begin sum: =0; for i: =1 to n do begin readln(mas[i]); if mas[i] mod 2 = 0 then // если mas[i] делиться на 2 без остатка, sum: =sum+1; end; writeln(sum); end.

#include < stdio.h>   int main() {     file* in = fopen("input.txt", "r");     char s[100], b = 1, i = 0;     short c;     do {         c = getc(in);         if (c > = '0' & & c < = '9') {             if ((b = ! b) & & /*             */ (c = getc(in)) == ' ' || c == '\t' || c == '\r' || c == '\n' || c == eof) {                 while (c ! = '\n' & & c ! = eof)                     c = getc(in);                 i = 0;             }         } else if (c == '\n') {             for (b = 0; b < i; b++)                 putchar(s[b]);             putchar(c);             putchar('\n');             i = 0;             b = 1;         } else {             s[i++] = c;             b = 1;         }     } while (c ! = eof);     fclose(in);

Var a,t: string; b: array[1..100]of string; j,i,k,n: integer; begin writeln('vvedite predlojenie'); readln(a); a: =' '+a; for i: =1 to length(a) do if a[i]=' 'then inc(k) else b[k]: =b[k]+a[i]; writeln('slova s odinakovymi 1 i posledney bukvoy'); for i: =1 to k do begin t: =b[i]; if t[1]=t[length(t)] then write(t,' '); end; writeln; writeln ('slova s 3 e'); for i: =1 to k do begin n: =0; t: =b[i]; for j: =1 to length(t) do if t[j]='e' then inc(n); if n=3 then write (t,' '); end; writeln; writeln('slova s bukvoy o'); for i: =1 to k do begin n: =0; t: =b[i]; for j: =1 to length(t) do if t[j]='o' then n: =1; if n=1 then write (t,' '); end; end.