Нужно написать программу на паскале! 10 класс! ! в автомастерской имеется список ремонтных работ. на вход подается количество ремонтных работ n, а потом данные, включающие фамилию мастера, продолжительность работы, стоимость работы. 1) отсортировать данные по суммарной продолжительности работ мастеров; 2) вывести на экран тех мастеров , у которых средняя стоимость работы(суммарная стоимость на количество) минимальна; 3) удалить тех мастеров , которые в целом работают меньше заданного времени.
var
i,j,j0: integer;
a:array[1..m,1..n] of integer;
jExit,iExit:Boolean;
begin
Randomize;
for i:=1 to m do begin
writeln;
for j:=1 to n do begin
a[i,j]:=random(2);
write(a[i,j]:2)
end
end;
writeln;
j:=0; jExit:=false;
repeat
j:=j+1; i:=1; iExit:=false;
if a[i,j]=0 then begin
repeat
i:=i+1;
if a[i,j]<>0 then iExit:=true
until iExit or (i=m);
if i=m then jExit:=true
end
until jExit or (j=n);
if a[i,j]=0 then writeln('Нулевой столбец ',j)
else writeln('Нет нулевых столбцов');
end.
Тестовый пример:
0 1 1 1 1 0 1 0 1 0 0 0 0 0 1
0 0 1 0 1 0 0 0 1 1 0 0 0 0 0
1 1 0 0 0 1 0 1 1 1 1 1 0 1 1
1 1 1 0 1 0 1 0 0 1 0 1 0 1 0
Нулевой столбец 13
#include <iomanip>
using namespace std;
int main() {
int n,k;
cout<<"n = "; cin>>n;
int a[n],b[n];
srand(time(NULL));
// запись в массив
for (int i=0; i<n; i++) {
a[i]=15-rand()%30; cout<<a[i]<<" ";
}
cout<<endl;
// сортировка массива по убыванию
for (int i=0; i<n-1; i++)
for (int j=i+1; j<n; j++)
if (a[j]>a[i]) swap(a[i],a[j]);
// поиск первого отрицательного
k=0;
while (a[k]>=0) k++;
// запись положительных по убыванию
for (int i=0; i<k; i++) b[i]=a[i];
// запись отрицательных по возрастанию
for (int i=k; i<n; i++) b[i]=a[n-i+k-1];
// вывод массива b
for (int i=0; i<n; i++) cout<<b[i]<<" ";
cout<<endl;
system("pause");
return 0;
}
n = 15
-6 -9 -7 12 7 7 -6 6 11 -4 1 10 9 -8 -1
12 11 10 9 7 7 6 1 -9 -8 -7 -6 -6 -4 -1