#include <iostream> #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; }
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var a:=ReadAllLines('foos.txt'); var i:=a.Select(l->l.Length).ToArray.IndexMax; a[i]:='*'*a[i].Length; WriteAllLines('foos1.txt',a); ReadAllText('foos1.txt').Println end.
Входной файл foos.txt должен находиться в одной папке с программой. Результат помещается в файл foos1.txt с тем ,чтобы не менять входной файл - это позволяет запустить задачу несколько раз. Если результат нужно поместить в тот же файл, замените foos1.txt на foos.txt.
Пример Написать программу в паскале, определяющую самую
1. фото
2. x=1, y=1, z=1
!(1*1)+(!1+!1)=0+0=0