Дан массив из 10 целых чисел заполненный случайными числами из интервала [0; 15]. определить является ли сумма элементов массива четным числом.

program mckd;

uses crt;

var a: =array [1..100] of integer;

      i,s: integer;

begin

randomize;

clrscr;

for i: =1 to 10 do

a[i]: =random(16);

for i: =1 to 10 do

s: =s+a[i];

if s mod 2 =0 then writeln('+') else ('-');

readln;

end.

с рандомом боюсь ошибся, но вроде по формуле

 

№1: program oy; var x,y: real; begin   write('введите координаты точки: ');   readln(x,y);   if x = 0 then writeln('точка лежит на оси y')  else     writeln('точка не лежит на оси y'); end.№2: program men; var a,b: real; procedure zamena(var a,b: real); var x,y: real; begin    x: =a;     y: =b;     a: =(x+y)*(x+y);     b: =x*x-y*y; end; begin  writeln('введите два числа: ');   readln(a,b);   if a> b then zamena(a,b) else      zamena(b,a);     writeln('числа после замены: ');   writeln(a,' ',b); end.

1. числа образуют последовательность, для n-го члена которой верны следующие соотношения: последняя формула позволит ответить на вопрос "сколько дней понадобиться,чтобы лягушка съела больше 35 комаров за раз", для чего надо решить неравенство: т.е. это произойдет в шестой день. хороший способ проверить работу программы. var   i,an,s,f: integer;   begin   s: =0; an: =0; f: =0;   for i: =1 to 10 do   begin       an: =2*an+1;       if f=0 then           if an> 35 then           begin               writeln('день ',i,', за раз съедено комаров- ',an);               f: =1           end;       s: =s+an   end;   writeln('за 10 дней съедено комаров: ',s) end. результат выполнения программы: день 6, за раз съедено комаров- 63 за 10 дней съедено комаров: 2036 2. используем алгоритм евклида. var   a, b: integer; begin   write('введите два натуральных числа: '); readln(a,b);   if a< > b then       repeat           if a > b then a : = a - b           else b : = b - a       until a=b;   writeln('нод=',b) end. тестовое решение: введите два натуральных числа: 264 5436 нод=12