Помогите пожалуйста. На Паскале написать программу с подпрограммой.Дано: массивы I(11), K(11). Сформировать массив М (11), элеме
Помогите пожалуйста. На Паскале написать программу с подпрограммой. Дано: массивы I(11), K(11). Сформировать массив М (11), элементы которого вычисляются по формуле M j= I j+ K j (j=1,11). Массивы I,K предварительно реорганизовать следующим образом: на первом месте, в данных массивах должен стоять элемент с минимальным значением . поиск минимального элемента массива и реорганизацию массива оформить в виде подпрограммы. Если можно полностью пожалуйста расписать
CONST max = 11; TYPE vector = array[1..max]of integer; VAR M, I, K:vector; j:byte;
{ Массивы I,K предварительно реорганизовать следующим образом: на первом месте, в данных массивах должен стоять элемент с минимальным значением} procedure reorganize_vector(var vt:vector); var i, j:byte; min, tmp:integer;
begin // вначале ищем минимальный элемент и запоминаем его место в массиве j:=1;// min:=vt[1];//назначаем наименьшим - первый элемент for i:=2 to max do if (min>vt[i]) then begin min:=vt[i]; j:=i;//индекс наименьшего числа end;
// теперь меняем местами первый элемент массива с наименьшим числом tmp := vt[1];//запоминаем значение первого элемента vt[1] := min;//меняем его на наименьший элемент vt[j] := tmp;//на место наименьшего ставим значение из первого элемента end;
// процедура для вывода массива на экран procedure print_vector(var vt:vector); var j:byte; begin for j:=1 to max do write(vt[j]:6); writeln(' '); end;
BEGIN writeln('Дано:');
//заполняем массивы случаынйми данными randomize; for j:=1 to max do begin I[j]:=random(-128,127); K[j]:=random(-128,127); end;
//выводим их на экран write('массив I[',max,']: '); print_vector(I); write('массив K[',max,']: '); print_vector(K);
writeln(' '); writeln('Реорганизовать массивы так, чтобы на первом месте '); writeln('должен стоять элемент с минимальным значением');
var n,f,p,s:integer; begin textbackground(15); textcolor(1); clrscr; writeln('введите сколько книг по програмированию '); readln(p); f:=p*4; s:=f-12; n:=f+s+p; writeln('всего ',n,' книг'); end.
Program n1; Uses CRT; Var k: integer; m,y:real; begin Readln(m,y); If m<y then writeln('NO') else if m=y then writeln('1') else While m>y do begin m:=m/105*100; k:=k+1; end; writeln(k); readln end.