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

Дать определение: ноутбук, айфон, айпад, флеш-память

👇
Ответ:
voprosik003
voprosik003
19.12.2022
Компьютер, смартфон, планшет, носитель информации
4,5(58 оценок)
Открыть все ответы
Ответ:
Renavalion
Renavalion
19.12.2022
// PascalABC.NET 3.0, сборка 1128
const
  nmax=100;
var
  n,i,j,nn,nz,np,t:integer;
  a,an,az,ap:array[1..nmax] of integer;
begin
  // формируем массив и выводим его
  Write('Количество элементов в массиве: '); Read(n);
  for i:=1 to n do begin
    a[i]:=Random(11)-5;
    Write(a[i],' ')
    end;
  Writeln;
  // разбиваем массив на три подмассива
  nn:=0; nz:=0; np:=0;
  for i:=1 to n do
    if a[i]<0 then begin nn:=nn+1; an[nn]:=a[i] end
    else
      if a[i]=0 then begin nz:=nz+1; az[nz]:=a[i] end
      else begin np:=np+1; ap[np]:=a[i] end;
  // сортируем массив с отрицательными элементами по убыванию
  for i:=1 to nn-1 do
    for j:=1 to nn-1 do
      if an[j]<an[j+1] then
        begin t:=an[j]; an[j]:=an[j+1]; an[j+1]:=t end;
  // сортируем массив с положительными элементами по возрастанию
  for i:=1 to np-1 do
    for j:=1 to np-1 do
      if ap[j]>ap[j+1] then
        begin t:=ap[j]; ap[j]:=ap[j+1]; ap[j+1]:=t end;
  // формируем новое содержимое массива a
  i:=0;
  for j:=1 to nz do begin i:=i+1; a[i]:=az[j] end;
  for j:=1 to np do begin i:=i+1; a[i]:=ap[j] end;
  for j:=1 to nn do begin i:=i+1; a[i]:=an[j] end;
  // вывод результата
  for i:=1 to n do Write(a[i],' ');
  Writeln
end.

Тестовое решение:
Количество элементов в массиве: 15
1 2 5 0 -5 -3 0 0 1 -4 3 -2 -2 0 -5
0 0 0 0 1 1 2 3 5 -2 -2 -3 -4 -5 -5
4,5(34 оценок)
Ответ:
pikuss
pikuss
19.12.2022

1) a = 12;

2) a= 16;

3) i = 6;

4) c = 6;

5) a = 22;

6) a = 15;

7) a = 3;

8) 5=Z(3) ;

9) a = 8;

10) a = 14;

11) a = 12;

12) Z(a)=(b) ;

13) i = 3;

Объяснение:

1) Программа не войдет в цикл т.к. i = 3 => значение а не изменится.

2) a = 4;  a + a = 8; a + a = 16

3) Цикл выполнится 4 раза в том случае, если значение i будет на 3 больше, чем в условии, т.к. установлено >= и за цикл из i вычитается 1.

4) a = 20; b = 3; b = 20/3 (без остатка) = 6; с = 20/7 (только остаток) = 6.

5) a = 10; т.к. a<15, то a = a + 12 = 10 + 12 = 22;

6) a = 10; т.к. a > 5, то a = a -7 = 10 - 7 = 3; т.к. a < 5, то a = a + 12 = 3 + 12 = 15.

7) a = 10; т.к. a > 5, то a = a - 7 = 10 - 7 = 3.

8) 5=Z(3)

9) a = 10; a = 10 - 1 = 9; a = 9 - 1 = 8

10) a = 12; т.к. i = 2, что меньше чем 3, то цикл сработает 1 раз (т.к. внутри его i увеличится на 1) => a = a + i = 12 + 2 = 14.

11) a = 10; т.к. a > 5, то a =12. ( не знаю, нужна ли там ; после then, но в любом случае ответ будет такой)

12) Z(a)=(b)

13) Цикл выполнится 2 раза в том случае, если значение i будет на 1 больше, чем в условии, т.к. установлено >= и за цикл из i вычитается 1.

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