4. автомобиль проезжает s км за t часов. нарисуйте блок-схему и напишите программный код для вычисления скорости движения автомобиля v.​

Const   nn = 50; var   t: array[1..nn] of integer;   i, n, s: integer; begin   writeln('введите количество элементов в массиве (n< 51): ');   readln(n);   writeln('введите элементы массива');   s: =0;   for i : = 1 to n do   begin       read(t[i]);       if t[i]< 0 then s : = s + t[i]   end;   writeln('сумма отрицательных элементов массива равна ', s) end. тестовое решение: введите количество элементов в массиве (n< 51): 10 введите элементы массива 5 -6 2 0 4 11 -8 0 1 -2 сумма отрицательных элементов массива равна -16

// pascalabc.net 3.0, сборка 1073 var   a,b,c: integer; begin   write('введи a,b,c: '); read(a,b,c);   if (a=b) or (a=c) or (b=c) then writeln('есть пара одинаковых')   else writeln('все числа различные') end. тестовое решение: введи a,b,c: 6 3 -12 все числа различные введи a,b,c: 5 -4 5 есть пара одинаковых // pascalabc.net 3.0, сборка 1073 var   n: string;   a,b: char; begin   write('введи натуральное число n: '); readln(n);   write('введи подряд пару разыскиваемых цифр: '); read(a,b);   if pos(a,n)> 0 then writeln('в числе есть цифра '+a)   else writeln('в числе цифры '+a+' нет');   if pos(b,n)> 0 then writeln('в числе есть цифра '+b)   else writeln('в числе цифры '+b+' нет') end. тестовое решение: введи натуральное число n: 3141592653589793 введи подряд пару разыскиваемых цифр: 47 в числе есть цифра 4 в числе есть цифра 7 // pascalabc.net 3.0, сборка 1073 var   i,n: integer;   fiba,fibb,fib: longint; begin   write('введи натуральное число (1-46): '); read(n);   if n< 3 then writeln('число фибоначчи равно 1')   else begin       fiba: =1; fibb: =fiba;       for i: =3 to n do begin           fib: =fiba+fibb;           fiba: =fibb; fibb: =fib       end;       writeln('число фибоначчи равно ',fib)   end end. тестовое решение: введи натуральное число (1-46): 13 число фибоначчи равно 233