Упорядочить массив A, сформированный с помощью датчика случайных чисел на интервале [-34, 33] по убыванию.

Знания

Информатика

1 ответ:

Игнач [6]1 год назад

0 0

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(ReadInteger('n='),-34,33); a.Println;
Sort(a,(x,y)->x>=y); a.Println
end.

Пример
n= 15
-23 29 25 -10 -13 28 -13 -14 -2 -26 -20 26 10 -18 10
29 28 26 25 10 10 -2 -10 -13 -13 -14 -18 -20 -23 -26

Читайте также

Петя изучает языки программирования. Сегодня он пишет программу для робота, перемещающегося по лабиринту. Робот может передвигат

Августина87 [703]

5 клеток нудно чтобы он добрался до сокровищ и не разбился по пути

0 0

3 года назад

Запишите на языке Паскаль программу, которая для произвольного двухзначного числа определяет : а) сумму и произведение его цифр;

IamAelita

var a,b,a1,a2:integer;
begin
readln(a);
b:=abs(a);
a1:=b div 10;
a2:=b mod 10;
writeln('S = ',a1+a2,' P = ',a1*a2);
b:=a2*10+a1;
if a>0 then writeln(b) else writeln(-b);
end.

Пример:
25
S = 7 P = 10
52

0 0

4 года назад

Помогите прошу дам много балов

К777 [1]

#include <iostream>

using namespace std;

int main(){

int x,y,z;

x=5;

y=-6;

if(x>y)z=x+y;

else{z=y-x;}

cout << z;

}

0 0

4 года назад

Подскажите пожалуйста: программа на языке паскаль определите какая из трех сторон треугольника больше всех

Арутея [20]

Program abc;
var a,b,c:integer;
begin
writeln('Введите первую сторону');
read(a);
writeln('Введите вторую сторону');
read(b);
writeln('Введите третью сторону');
if (a>b) and (a>c) then write(a);
if (b>a) and (b>c) then write(b);
if (c>a) and (c>b) then write(c);
if (a=b) or (a=c) or (c=b) then write('Есть равные стороны и нет большей')
end.

0 0

1 год назад

Ребят , спасайте ! 1 )Какое из чисел следует за числом в восьмеричной системе счисления ? 2) Чему равна сумма чисел x и y при x

Амина Хасанова

1) $130_{8}$
2) $100101_{2}$

0 0

3 года назад