Уровень b. напишите программу, которая заполняет массив из n = 10 элементов случайными числами в диапазоне [-10,10], выводит его на экран, а затем находит индекс последнего элемента, равного введённому числу x. программа должна вывести ответ «не найден», если в массиве таких элементов нет. пример: массив: -5 -6 2 3 -3 0 8 -3 0 9что ищем: 0a[9] = 0на паскале(старая версия)

примерно так:

program poisk;

const

n = 10;

type

mas = array [-10..n] of integer;

var

a: mas;

x: integer;

i: integer;

begin

readln (x);

for i : = 1 to x do

a[i] : = random (10);

for i : = 1 to x do

begin

if (a[i] = 0) then

writeln ('a',i,' : = ',a[i])

else

writeln ('такого индекса нету');

end;

end.

varslovo,simval: string; i,k: integer; begink: =0; write('vvedite slovo '); readln(slovo); write('vvedite simval '); readln(simval); for i: =1 to length(slovo) dobeginif slovo[i]=simval then k: =k+1; if slovo[i]=simval then writeln(i,' '); end; if k> =1 thenwriteln('yes vstre4aets9 ',k,' raz, na pozicii ',i)else writeln('no'); writeln; end.вот в одном решении

v=331+ 0,6*t

в зимний день- v=331+ 0.6*(-35)=310 м/с

в летний день-   v=331+ 0.6*30=349 м/с