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

Написать текст программы в которой из табличной величины от 1 до 50 найти минимальное и поменять его с первым (lazarus)

👇
Ответ:
Perevezii
Perevezii
11.05.2023

program minPomeniatiSPervam;

type Massiv=array[1..50]of integer;

var v: Massiv;

   n,i, minim, indmin, temp: integer;

begin

 write('n='); read(n);

 writeln(' vvedi ',n,' cisel: ');

 read(v[1]); minim:=v[1]; indmin:=1;

 for i:=2 to n do

   begin

      read(v[i]);

      if v[i]<minim  then begin minim:=v[i]; indmin:=i; end;

   end;

 temp:=v[1]; v[1]:=v[indmin]; v[indmin]:=temp;

 writeln('new Massiv: ');

 for i:=1 to n do

   write(v[i],'  ');

end.

4,4(23 оценок)
Открыть все ответы
Ответ:
aretem2002
aretem2002
11.05.2023
1. PascalABC.NET 3.3
const n=18;
begin
  var a:=ArrRandom(n,0,100);
  for var i:=0 to n-1 do begin
    write(a[i],' ');
    if (i+1) mod 6=0 then writeln;
  end;
  writeln('Среднее арифметическое = ',a.Average);
  writeln('max = a[',a.IndexMax,'] = ',a.Max);
  writeln('min = a[',a.IndexMin,'] = ',a.Min);
end.

2.
const n=18;
var a:array[1..n] of integer;
x,max,min,imax,imin,i:integer;
begin
Randomize;
for i:=1 to n do begin
 a[i]:=random(101);
 write(a[i],' ');
 if i mod 6=0 then writeln;
 end;
x:=0;
max:=a[1]; imax:=1;
min:=a[1]; imin:=1;
for i:=1 to n do
 begin
 x:=x+a[i];
 if a[i]>max then begin max:=a[i]; imax:=i; end;
 if a[i]<min then begin min:=a[i]; imin:=i; end;
 end;
writeln('Среднее арифметическое = ',x/n:6:3);
writeln('max = a[',imax,'] = ',max);
writeln('min = a[',imin,'] = ',min);
end.

Пример:
55 32 51 53 6 82
94 27 43 61 56 20
63 6 92 32 14 84
Среднее арифметическое = 48.389
max = a[7] = 94
min = a[5] = 6
4,7(27 оценок)
Ответ:
Tina19977
Tina19977
11.05.2023

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


Классификация всегда имеет основание. Одно и то же моножество можно классифицировать по разному основанию.

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

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


Классификация автомобилей по типу кузова:

купе

седан

универсал

кабриолет

лимузин

пикап

хэтчбек

внедорожник

кроссовер

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