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

Скодом в паскале преобразовать массив, умножив все отрицательные числа на минимальное число этого массива

👇
Ответ:
pitliknazar
pitliknazar
04.07.2021
1. Современное решение

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

begin
  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
  var min:=a.Min;
  a.Transform(x->x<0?x*min:x); a.Println
end.

Пример
n= 15
-34 7 0 -48 4 42 35 14 -47 6 -29 43 46 40 -18
1632 7 0 2304 4 42 35 14 2256 6 1392 43 46 40 864

2. Популярное до сих пор в школах решение на TurboPascal 7.01 (1983г.)

uses Crt;
const
  nn=100;
var
  i,n,min:integer;
  a:array[1..nn] of integer;
begin
  ClrScr;
  Randomize;
  Write('n='); Read(n);
  min:=100;
  for i:=1 to n do begin
    a[i]:=Random(101)-50;
    Write(a[i],' ');
    if a[i]<min then min:=a[i]
    end;
  Writeln;
  for i:=1 to n do
    if a[i]<0 then a[i]:=a[i]*min;
  for i:=1 to n do
    Write(a[i],' ');
  Writeln;
  ReadKey
end.
4,7(77 оценок)
Открыть все ответы
Ответ:
sweetmayers
sweetmayers
04.07.2021

На мой взгляд, самая интересная, но сложная профессия - это быть врачом.

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

специальностей. Например, лор, невролог, врачи скорой Я думаю, что врачам скорой

сложнее всего. Представьте, сколько вызовов за день могут взвалить на свои плечи эти трудолюбивые люди. Мы должны с уважением относиться к врачам. Ведь придет и наш черед

обратиться к ним за И они Врачи никогда не кинут тебя в беде.

Вот почему я считаю, что врач - это самая благородная и трудная профессия на земле.

4,7(66 оценок)
Ответ:
VadAltman13
VadAltman13
04.07.2021

Минимальная единица изображения:

растровая: пиксели

векторная: графические формулы

Какая информация хранится в файлах векторного и раствого типа:

Ростовая: о пикселях, составляющих изображения.

Векторная: о графических примитивах, составляющих изображение.

С каких средств получается изображение:

растровая: Paint, Gipm, Adobe Photoshop

Векторная: Microsoft Word, OpenOffice, CorelDRAW , Macromedia Flash.

Объём графических файлов:

растровая: очень большой объём

Векторная: относительно небольшой объём

реакция изображения на изменение его размера:

Растровая: не желательно, возможно искажение.

Векторная: качество не будет потеряно, остаётся прежний вид.

Достоинства графики:

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

векторная: маленький объём файла, простое маштабирование.

Недостатки графики:

растровая: большой объём файла, маштабирование с искажением и ухудшение качества,

векторная: не пригодна для реалестичных изображений.

Форматы файлов:

растровая: BPM, GIF, JPG, PCX, TIF.

векторная: WMF, EPS, DXF, CCM

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