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

Впроизвольно заданном одномерном массиве (случайные значения из отрезка -5 до 15) из 12 элементов, определить максимальный элемент и его номер.

👇
Ответ:
elena090107
elena090107
04.01.2020
Const
  n = 12;

var
  a: array[1..n] of integer;
  i, max: integer;

begin
  max := 1;
  for i := 1 to n do begin
    a[i] := random(20) - 5;
    write(a[i]:3);
    if a[i] > a[max] then
      max := i;
  end;
 
  writeln;
  writeln('a[', max, '] = ', a[max]);
end.
4,7(21 оценок)
Ответ:
hohlovm71
hohlovm71
04.01.2020
Uses crt;
const n=12;
var a:array[1..n] of integer;
i,k,max:integer;
begin
randomize;
max:=-5;
for i:=1 to n do
begin
a[i]:=random(20)-5;
writeln(a[i]);
if a[i]>max then
begin
k:=i;
max:=a[i];
end;
end;
writeln;
writeln(max);
writeln(k);
end.
4,8(43 оценок)
Открыть все ответы
Ответ:
dvolzhenkov
dvolzhenkov
04.01.2020
3 Информация - совокупность сведений, знаний о чем-либо; сообщение - совокупность знаков , отображающих информацию.
4 Кодирование - зашифровка информации (перевод языка на азбуку Морзе),декодирование - расшифровка( расшифровка сообщения с азбуки Морзе,к примеру, на русский язык).
5 Кол-во информации предотвращает неопределенность.Неопределенность информации характеризуется энтропией, хаосом.
6 Актуализация информации - совокупность действий по обновлению, расширению, восстановлению информации для эффективности  ее использования.
7 Актуальность, полнота, доступность,понятность (т.е. понятна для восприятия) 
4,5(64 оценок)
Ответ:
olga810706
olga810706
04.01.2020
Uses GraphABC;
var a,b,c:array[10..99] of integer;
 ast,bst,cst:string;
 i:integer;
begin
ast:='A:';
bst:='Б:';
cst:='В:';
for i:=10 to 99 do
begin
c[i]:=i;
a[i]:=c[i]-i+random(50);
b[i]:=c[i]-a[i];
ast:=ast+' '+inttostr(a[i]);
bst:=bst+' '+inttostr(b[i]);
cst:=cst+' '+inttostr(c[i]);
end;
setpencolor(clRed);
line(0,0,150,0);
line(150,0,75,50);
line(75,50,0,0);
rectangle(0,50,150,300);
DrawTextCentered(0,50,150,300,ast);
setpencolor(clYellow);
line(150,0,300,0);
line(300,0,225,50);
line(225,50,150,0);
rectangle(150,50,300,300);
DrawTextCentered(150,50,300,300,bst);
setpencolor(clGreen);
line(300,0,450,0);
line(450,0,375,50);
line(375,50,300,0);
rectangle(300,50,450,300);
DrawTextCentered(300,50,450,300,cst);
end.
4,6(56 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ