М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
PowerSell
PowerSell
09.01.2020 19:05 •  Информатика

Создать массив на 100 случайных чисел из диапазона от -1000 до 1000. первые 50 по возрастающей вторые 50 по убывающей (паскаль)

👇
Ответ:
tural22
tural22
09.01.2020
// Pascal ABC.Net версия 3.2 сборка 1387
begin
writeln('исходный массив:');
var a:=ArrRandom(100,-1000,1000).Println();
writeln('1 50 по возр:');
a.Reverse().Skip(50).Sorted().Println();
writeln('2 50 по убыв:');
a.Skip(50).SortedDescending().Println();
end.
4,5(74 оценок)
Ответ:
Keterina0905keka
Keterina0905keka
09.01.2020
Var a,b,c,i:integer;
d:array [1..1000] of integer;
begin
randomize;
writeln('введите число');
readln(a);
for i:=1 to a do begin
d[a]:=random(-100,100);
writeln(d[a]);
if (d[a]>0) and (d[a] mod 2 = 0) then
c:=c+d[a];
end;
writeln('ответ : ',c);
end.

Держи
4,4(25 оценок)
Открыть все ответы
Ответ:
andreyderdi159
andreyderdi159
09.01.2020
Function prime(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 t := true;
 d := 2;
 while t and (d*d <= x) do
   begin
   if x mod d = 0 then 
     t := false;
   d := d + 1
   end;
 prime := t
end;

function order(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 d := -1;
 repeat
   t := x mod 10 > d;
   d := x mod 10;
   x := x div 10
 until not t or (x = 0);
 order := t
end;

var
 t:boolean;
 i,k,n:integer;
begin
 t := false;
 read(k,n);
 for i := k to n do
   if prime(i) then
   if order(i) then
     begin
     write(i,' ');
     t := true
     end;
 if not t then
   write(0)
end.
4,4(24 оценок)
Ответ:
kachusova2013
kachusova2013
09.01.2020

Объяснение:

Объясняю почему:

Перед тобой цикл for. Строчка «for i in range(2,6)» означает, что цикл будет начинаться со второй итерации (шаг) до 6 (но в этом цикле такая фишка, что конечное число не учитывается, то есть будет 6-1 (5)). Значит с шагом 5 цикл оборвётся и 6 выполняться не будет. Ты можешь обнаружить это в таблице. Последнее твоё действие заканчивается на строчке под номером 5. А дальше все очень просто!

Допустим, в пустые клеточки (А1, В1) мы ввели какие-то числа. Например, А = 2, В = 3. Следующим шагом программы будет присвоить нашим переменным, которые мы задали, новые значения, которые считаются по формуле данной в строке 2:

2*A1+B1 (это для переменной А) и B1+1 (это для переменной B).

Значит теперь у нас:

A = 2*2(то число которое мы задали)+3 = 7

B = 3(то число которое мы задали)+1 = 4

А дальше программа просто повторяет все то же самое, только теперь с новыми значениями, у нас они стали: A = 7, B = 4. Надеюсь все понятно :) И именно ответ под номером один нам подходит.

Если ещё надо решить вторую задачу, то сфоткай полностью ответы.

4,5(68 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ