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

Решить, 1) составьте программу которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 и находит минимальный элемент массива среди элементов с нечетными индексами. 2) составьте программу которая заполняет массив a[1..10] случайными целыми числами в диапазоне от 1 до 10 и находит максимальный элемент массива, а затем вычисляет, сколько раз он встречается а массиве.

👇
Ответ:
dianaism38
dianaism38
01.05.2023
1 задача:

const n=10;
var 
  min,i: integer;
  a: array[1..n] of integer;
begin
  randomize;
  min:=11;
  for i:=1 to n do begin
    a[i]:=random(1,10);
    write (a[i],' '); // для наглядности. можно удалить
    if  (i mod 2 =1) and (a[i]<min) 
      then min:=a[i];    
  end;
  writeln;
  writeln ('min = ',min)
end.

Пример:
5 4 7 8 6 2 10 4 9 9 
min = 5


2 задача:

const n=10;
var 
  max,count,i: integer;
  a: array[1..n] of integer;
begin
  randomize;
  max:=0;
  count:=0;
  for i:=1 to n do begin
    a[i]:=random(1,10);
    write (a[i],' '); // для наглядности. можно удалить
    if a[i]>max
      then max:=a[i];     
  end;
  for i:=1 to n do 
    if max=a[i] then count:=count+1;
  writeln;
  writeln ('max = ',max);
  writeln ('count = ',count);
end.

Пример:
8 5 3 2 2 10 10 9 3 10 
max = 10
count = 3
4,8(53 оценок)
Ответ:
адамчик2
адамчик2
01.05.2023
Program massiv;vara: array[1..10] of byte;min,i,k,n: byte;beginfor i:=1 to 10 do begin         a[i]:=random(10);         writeln(a[i]);         end;min:=a[1];k:=1;for i:=1 to 9 do    i:=i+2;    if a[i]<min then begin    min:=a[i];    k:=i;    end;writeln('min=',min, ' N ',k);end.

Решить, 1) составьте программу которая заполняет массив a[1..10] случайными целыми числами в диапазо
4,6(52 оценок)
Открыть все ответы
Ответ:
Dashaandreevna1982
Dashaandreevna1982
01.05.2023
Program z1;
var a,b,c,d:integer;
procedure nod(x,y:integer;var nod2:integer);
begin
        while x<>y do begin
                if x>y then begin
                        x:=x-y
                end
                else begin
                        y:=y-x
                end
        end;
        nod2:=xend;
begin
        write('a=');readln(a);
        write('b=');readln(b);
        write('c=');readln(c);
        write('d=');readln(d);
        nod(a,b,b);
        nod(b,c,c);
        nod(c,d,d);
        writeln('nod=',d);
        readln
end.
4,5(21 оценок)
Ответ:
alenaefremova79
alenaefremova79
01.05.2023

Объяснение:

Объектно-ориентированные языки - ЯП, построенный на принципах ООП, и код на которых использует исключительно парадигму ООП (Стиль программирования, при котором программа представляется совокупностью объектов (Экземпляров класса), а классы имеют иерархию наследования). Пример такого языка - C#. Такие языки не поддерживают процедурный стиль и, зачастую, ООП в таких языках реализовано на невероятно качественном, и при этом сложнейшем уровне. Так же объектно-ориентированными можно назвать языки, в принципе поддерживать парадигму ООП, и облегчающие написание кода, используя эту парадигму. ООП в таких языках обычно реализовано слабее, но оно более дружелюбно к начинающему программисту, и не требует читать тонны литературы, что бы хоть что то понять. Примером такого языка может служить Python, ООП в котором есть, но из за отсутствия необходимости реализации некоторых понятий ООП, оно на порядок проще и понятнее, чем на том же C#, и при этом всё равно позволяет понять и освоить основные принципы ООП.  

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