• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Перевод программы сортировки массива паскаля на c

  • Автор темы FaRReLL
  • Дата начала
F

FaRReLL

Код:
program vlad;
uses crt;
var
flag,i,n:integer;
a:array[1..100] of real;
begin
clrscr;
flag:=0;
write('Vvedite N ot 2 do 100; ');
readln(N);
for i:=1 to n do
begin
write('Vvedite ',i,'-i element: ');
readln(a[i]);
end;
i:=1;
while (i<n) and (a[i]<a[succ(i)]) do
inc(i);
if i=n then
flag:=2;
case flag of
1:writeln('Massiv yporadochen po vozrostaniu ');
2:writeln('Massiv yporadochen po ybivaniu');
else
writeln('Massiv neyporadochen. ');
end;
readln;
end.
 
W

Whatka

C++:
//
#include <iostream>
using namespace std;
void main()
{
int N, *a;
cout << "Vvedite N ot 2 do 100:";
cin >> N;

a = new int[N];
for (int i = 0; i < N; i++)
{
cout << "Vvedite " << i + 1 << " element:";
cin >> a[i];
}

bool growUp = true,growDown = true;

for (int i = 0; i < N - 1; i++)
{
if (a[i] < a[i + 1])
growDown = false;
if (a[i] > a[i + 1])
growUp = false;
}
if (growUp)
cout << "Massiv yporadochen po vozrostaniu.\n";
else
{
if(growDown)
cout << "Massiv yporadochen po ybivaniu.\n";
else
cout << "Massiv neyporadochen.\n";
}
}
//
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!