Викресли зайве. що залишилося? запиши одним словом. малювання, виконання обчислень, фотографування.

закреслюй слово обчислень

Буду считать, что да, он самый востребованный тут =) 1) var a: array [0..9] of integer;     i, o: integer; begin       for i : = 1 to 20 do       begin           if (i mod 4 = 0) then a[o] : = i           else if (i mod 4 = 2) then a[o] : = -1 * i;           if (i mod 4 mod 2 = 0) then o : = o + 1;       end;             for i : = 0 to 9 do           writeln(a[i]); end.2)var a: array [0..30] of integer;     i, o: integer;     s: string; begin      for i : = 1 to 30 do      begin          a[i] : = random(6) - 3;       end;       writeln('массив: ');       for i : = 0 to 30 do      begin          writeln('[', i, '] => ', a[i]);           if (a[i] > 0) then          begin              o : = o + a[i];               s : = s + inttostr(i) + ' ';           end;       end;       writeln('номера положительных чисел: ', s); end.

Var       s : string;       i : integer; begin     writeln('введите строку: ');     readln(s);       i: = 0;       while pos(')', s) < > 0 do    begin         i : = i + pos(')', s) - pos('(', s) + 1;         delete(s, pos('(', s), pos(')', s) - pos('(', s) + 1);     end;       writeln(s);       writeln(i);       readln; end.2)var        s     : string;         i, e : integer;         flag : boolean;   begin    writeln('введите строку: ');     readln(s);       e : = 0;       flag : = false;     for i : = 1 to length(s) do      begin            if (s[i] = upcase(s[i])) and ((s[i - 1] = ' ') or ( i = 1 )) then   flag : = true;             if flag then write(s[i]);             if (( s[i] = ' ' ) or ( i = length( and flag then            begin                 flag : = false;                 inc(e);                 writeln;             end;       end;     writeln(e);       readln; end.