Сформулировать массив, поставив на четные места 1, а нечтные 0.

Uses crt; const n=10; var a: array [1..n] of integer; i: integer; begin randomize; for i: =1 to n do begin a[i]: =random(100); writeln(a[i]); end; writeln; for i: =1 to n do if (a[i] mod 2=0) then a[i]: =1 else a[i]: =0; for i: =1 to n do writeln(a[i]); end.

1)  тот  или  то,  что  выполняет  алгоритм. 2)  основные свойства  алгоритма-дискретность  (последовательность,  прерывистость). детерменированность  (при  одинаковом  наборе  данных  неважно где  и  когда  будет  выполнен  алгоритм). результативность  (при выполнение  действий  состовляющих  правельный  алгоритм  будет  получен  определенный  результат). массовость  (один  и  тот  же  алгоритм  подходит  для  решения  однотипных    с  разным  набором  начальных  данных). еще  коректность  и  конечность. 3)-дворник -водитель -бухгалтер -коммисия -ученик -учитель

Pascal: var a,b: real; begin   write ('a = ');   readln (a);   write ('b = ');   readln (b);   writeln ('summa: ',a+b);   writeln ('raznost: ',a-b);   writeln ('proizvedenie: ',a*b);   if b=0 then writeln ('division by zero! ') else writeln ('chastnoe: ',a/b);   readln; end. c++: #include < iostream> using namespace std; int main() {   float a,b;   cout < < "a = ";   cin > > a;   cout < < "b = ";   cin > > b;   cout < < "summa: " < < a+b < < endl           < < "raznost: " < < a-b < < endl           < < "proizvedenie: " < < a*b < < endl;   if (b==0)       cout < < "division by zero! ";   else cout < < "chastnoe: " < < a/b < < endl; }