pkitman
Newbie | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Shlyapa495
Цитата: [/q][q]
Задание 3
Даны массивы
N1, …, N7 – наименования операций по ремонту автомашин;
ST1, …, ST7 – стоимость каждой из операций.
Вывести список операций, стоимость которых составляет от S1 до S2 руб. Какая операция имеет максимальную стоимость? |
Uses crt;
const z=7;
Var
N,ST:array[1..z] of integer;
i,j,s1,s2,max,imax:integer;
Begin
ClrScr;
For i:=1 to z do
Begin
N[i]:=i;
ST[i]:=1+random(100);
End;
For i:=1 to z do Write(N[i]:4); WriteLn;
For i:=1 to z do Write(ST[i]:4); WriteLn;
Write('Vvedite minimalnuju cenu=');ReadLn(s1);
Write('Vvedite maximalnuju cenu=');ReadLn(s2);
WriteLn;
Write('Nomera operacij udovletvor usloviju=');
max:=ST[1];
j:=0;
For i:=1 to z do
Begin
if ST[i]>=s1 then if ST[i]<=s2 then
Begin
j:=1;
Write(i,' ');
End;
if max<ST[i] then
Begin
max:=ST[i];
imax:=i;
End;
End;
if j=0 then Write('Takovix net!!!');
WriteLn;
Write('Cena',' ',imax,'-j operacii maximalnaja i sostavlajet ',max);
ReadKey
End.
Кароче я тут накалякал немного, просто доработай под ся немного!!! Еси че обращайся, правда первый массив у мня не к чему, так для вида, ну короче могу еси че подругому сделать!!! |
