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

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

👇
Ответ:
GNA14
GNA14
30.07.2020
Var begin j:=0; for i:=1 to 10 do read(a[I]); for i:=1 to 10 do if a[i] mod 5=0 then begin j:=j+1; b[j]:=a[i]; end; for i:=1 to 10 do if a[i] mod 5<>0 then begin j:=j+1; b[j]:=a[i]; end; For i:=1 to j do write(a[i],` `); Writeln(); For i:=1 to j-1 do For c:=j-1 downto i do If b[c]>b[c+1] do begin k:=b[c]; B[c]:=b[c+1]; B[c+1]:=k; end; For i:=1 to j do write(b[i],` `); End.
4,8(46 оценок)
Открыть все ответы
Ответ:
Егор200417
Егор200417
30.07.2020
Решение в приложении. Файл с рабочей книгой Excel-2003. не забудьте разрешить выполнение макросов и проектов VBA без цифровой подписи.
Вы можете внести данные для массива вручную или воспользоваться кнопкой для автозаполнения с датчика случайных чисел. Не забудьте предварительно указать количество элементов в массиве.
Кнопка "Задание 1" выполняет первую задачу и выводит результат в ячейку, расположенную правее этой кнопки. Кнопка "Задание 2" аналогично работает для второго задания. Коды, привязанные к кнопкам - это программы-обработчики события "Нажатие кнопки".
4,4(43 оценок)
Ответ:
anel19999
anel19999
30.07.2020
Uses GraphABC;
type FUN = function (x: real): real;
function f(x: real): real;begin  Result := x*x +1 ;end;
// l (logical) - логические координаты// s (screen) - физические координатыprocedure drawGraph(x1,x2: real; f: FUN); var  xl0,wl,yl0,hl: real;  xs0,ws,ys0,hs: integer; function LtoSx(xl: real): integer; begin   Result := round(ws/wl*(xl-xl0)+xs0); end; function LtoSy(yl: real): integer; begin   Result := round(hs/hl*(yl-yl0)+ys0); end; function StoLx(xs: integer): real; begin   Result := wl/ws*(xs-xs0)+xl0; end;
begin // drawGraph  xs0 := 0;  ys0 := WindowHeight-1;  ws := WindowWidth;  hs := WindowHeight-1;    xl0 := x1;  wl := x2-x1;
  var min := real.MaxValue;  var max := real.MinValue;    var yi: array of real;  SetLength(yi,ws+1);
  for var xi:=0 to ws do  begin  if xi > 320 then begin    yi[xi] := f(StoLx(xi+xs0));    if yi[xi]<min then       min := yi[xi];    if yi[xi]>max then       max := yi[xi];      end;  end;    yl0 := min;  hl := -(max-min);
  // Нарисовать оси системы координат  Line(0,LtoSy(0),ws,LtoSy(0));  Line(LtoSx(0),0,LtoSx(0),hs);
  Pen.Color := clBlue;  MoveTo(xs0,LtoSy(yi[0]));  for var xi:=xs0+1 to xs0+ws do    LineTo(xi,LtoSy(yi[xi-xs0]));end;
procedure Resize;begin  ClearWindow;  drawGraph(-60,60,f);  Redraw;end;
begin  LockDrawing;  SetWindowCaption('График функции: масштабирование');  drawGraph(-60,60,f);  Redraw;  OnResize := Resize;end.
4,6(3 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ