Вмассив с клавиатуры вводятся результаты соревнований по многоборью 7 спортсменов (значениея результатов от 1000 до 2000 ). составить программу которая находит номер и результат победителя
Var A: array[1..7] of integer; i: byte; Max, MaxInd: integer; begin writeln('Заполнение массива. Вводите числа от 1000 до 2000.'); for i := 1 to 7 do begin write('A[',i,']='); readln(A[i]); if A[i] > Max then begin Max := A[i]; MaxInd := i; end; end; writeln; writeln('№ победителя ', MaxInd, ' результат = ', Max, ' .' ); end.
1) var f:text; a:array[1..7] of real; i,k,c,x:integer; s:string; begin for i:=1 to 7 do begin readln(x); a[i]:=x; end; assign(f,'file.txt'); rewrite(f); for i:=1 to 7 do begin str(a[i],s); writeln(f,s); end; close(f); reset(f); k:=0; while not eof(f) do begin readln(f,s); val(s,x,c); if x<0 then k:=k+1; end; close(f); if k<>0 then writeln('В массиве ',k,' отрицательных элемента(ов)'); else writeln('В массиве нет отрицательных элементов'); erase(f); end.
2) Var a,b,c,d:integer;
Function max(a,b:integer):integer; begin if a>b then max:=a else max:=b; end;
Begin readln(a,b,c,d); a:=(max(a,b)); b:=(max(c,d)); writeln('max=',max(a,b)); End.
procedure Calc(x: integer; var L: integer; var M: integer); begin L := 0; M := 0; while x > 0 do begin L := L + 1; if M < (x mod 5) then M := x mod 5; X := x div 5; end; end;
begin for x := 100 to 500 do begin Calc(x, L, M); if (L = 3) and (M = 4) then Println(x, L, M); end; end.
суть процедуры заключается в том что она вычисляет кол-во цифр в 5ричном числе (L) и максимальну цифру в числе (М) Максимальным для L=3 M=4 будет 124 или "444"_5
A: array[1..7] of integer;
i: byte;
Max, MaxInd: integer;
begin
writeln('Заполнение массива. Вводите числа от 1000 до 2000.');
for i := 1 to 7 do
begin
write('A[',i,']=');
readln(A[i]);
if A[i] > Max then
begin
Max := A[i];
MaxInd := i;
end;
end;
writeln;
writeln('№ победителя ', MaxInd, ' результат = ', Max, ' .' );
end.