Дан массив из n элементов(12 элементов), заданный случайным образом от -10 до 10. вывести на экран этот массив. с клавиатуры вводятся два числа меньше n. вывести на экран часть массива входящих в диапазон, двух введенных чисел. эти два числа будут индексами к тем числам, которые надо вывести.

👇

Ответ:

57862327685

18.05.2021

Const n = 12;
var a:array [1..n] of integer;
      i,c,b:integer;
begin
randomize;
for i:=1 to n do
    begin
      a[i]:=random(21)-10;
      write (a[i],' ');
    end;
writeln;
repeat
    write ('C = ');
    readln (c);
until c in [1..n];
repeat
    write ('B = ');
    readln (b);
until b in [1..n];
if c<b then
    for i:=c to b do write (a[i],' ')
else for i:=b to c do write (a[i],' ');
readln;
end.

4,8(80 оценок)

Открыть все ответы

Ответ:

Marikalitkina

18.05.2021

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var b:array[1..6,1..6] of integer:=(
    (19,21,23,25,27,29),(57,59,61,63,65,31),
    (55,81,83,85,67,33),(53,79,89,87,69,35),
    (51,77,75,73,71,37),(49,47,45,43,41,39));
var a:array[1..6,1..6] of integer;
var k:=2;
var k0,k1:integer;
for var i:=1 to 6 do begin
    for var j:=1 to 6 do Print(b[i,j]);
    Writeln
    end;
Writeln;
repeat
    k0:=0;
    k1:=0;
    Writeln('k=',k);
    for var i:=1 to 6 do begin
      for var j:=1 to 6 do begin
        if (b[i,j] mod k) mod 2=0 then
          begin a[i,j]:=1; Inc(k1) end
        else begin a[i,j]:=0; Inc(k0) end;
        Print(a[i,j])
        end;
      Writeln
      end;
    Writeln('k0=',k0,', k1=',k1);
    if k0<>k1 then Inc(k)
until k0=k1;
Writeln(NewLine,'k=',k)
end.

Решение
19 21 23 25 27 29
57 59 61 63 65 31
55 81 83 85 67 33
53 79 89 87 69 35
51 77 75 73 71 37
49 47 45 43 41 39

k=2
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
k0=36, k1=0
k=3
0 1 1 0 1 1
1 1 0 1 1 0
0 1 1 0 0 1
1 0 1 1 1 1
1 1 1 0 1 0
0 1 1 0 1 1
k0=12, k1=24
k=4
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
k0=36, k1=0
k=5
1 0 0 1 1 1
1 1 0 0 1 0
1 0 0 1 1 0
0 1 1 1 1 1
0 1 1 0 0 1
1 1 1 0 0 1
k0=14, k1=22
k=6
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
k0=36, k1=0
k=7
0 1 1 1 1 0
0 0 0 1 1 0
1 1 1 0 1 0
1 1 0 0 1 1
1 1 0 0 0 1
1 0 0 0 1 1
k0=16, k1=20
k=8
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
k0=36, k1=0
k=9
0 0 0 0 1 1
0 0 0 1 1 1
0 1 1 1 1 1
1 0 1 1 1 1
1 0 0 0 1 0
1 1 1 0 0 0
k0=16, k1=20
k=10
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
k0=36, k1=0
k=11
1 1 0 0 0 0
1 1 1 1 1 0
1 1 1 1 0 1
0 1 0 1 0 1
0 1 0 0 0 1
0 0 0 1 1 1
k0=16, k1=20
k=12
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
0 0 0 0 0 0
k0=36, k1=0
k=13
1 1 1 1 0 0
0 0 0 0 1 0
0 0 0 0 1 0
0 0 0 0 1 0
1 1 1 1 1 0
1 1 1 1 1 1
k0=18, k1=18

k=13

ответ: 13

4,5(96 оценок)

Ответ:

Богатство87

18.05.2021

Изменения в жизни общества, связанные с бурным развитием информационной сферы, привели к появлению концепции информационного общества.

Концепция информационного общества

Термин « информационное общество» ввел профессор Токийского технологического института. Ю. Хаяши еще в 1969 году, когда японскому правительству были представлены отчёты «Японское информационное общество: темы и подходы», а в 1971 году — «План информационного общества».

Сегодня термин «информационное общество» прочно занял свое место в лексиконе политических деятелей, экономистов, преподавателей и ученых. В большинстве случаев это понятие ассоциируется с уровнем развитием информационных технологий и средств телекоммуникации..

Три года назад, 27 марта 2006 года генеральная Ассамблея ООН провозгласила 17 мая Международным днем информационного общества

Что же такое информационное общество? В чем его особенность? Каковы проблемы? Существуют ли пути их преодоления? На эти вопросы я постараюсь ответить в своей работе.

На мой взгляд, концепция информационного общества еще будет дорабатываться, поскольку изменяется и расширяется информационная сфера. На сегодняшний день так определяют информационное общество:

Информационное общество - новая историческая фаза развития цивилизации, в которой главными продуктами производства являются информация и знания. Отличительными чертами информационного общества являются:

- увеличение роли информации и знаний в жизни общества;

- возрастание доли информационных коммуникаций, продуктов и услуг в валовом внутреннем продукте;

- создание глобального информационного пространства, обеспечивающего эффективное информационное взаимодействие людей, их доступ к мировым информационным ресурсам и удовлетворение их потребностей в информационных продуктах и услугах.

4,4(18 оценок)

Это интересно:

Дом-и-сад

16.05.2021

Как избавиться от пятен после постельных клопов...

Мир-работы

22.03.2022

Как эффективно управлять складом: польза и преимущества...

Питомцы-и-животные

11.03.2022

Хочу хомяка! Как убедить родителей купить домашнего питомца...

Компьютеры-и-электроника