В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Narine10
Narine10
30.03.2022 01:19 •  Информатика

Кто является оператором а продавец нелицензированный ВПБ покупателями лицензированного о покупках пользователь в продавец лицензированного игре покупатель лицензирования в скобках пользователь​

Показать ответ
Ответ:
OT7
OT7
11.12.2021 04:06
Var
    A: array[1..100, 1..100] of integer;
    B: array[1..100]of integer;
    i, j, k, n, m, imax: integer;
    manual: boolean;

begin
    writeln('Ручной ввод (true/false)==>');
    read(manual);
    
    if manual then begin
        writeln('Размер массива n, m ==>');
        read(n, m);
    end
    else begin
        n := random(10) + 5;
        m := random(10) + 5;
    end;
    
    for i := 1 to n do
    begin
        writeln();
        for j := 1 to m do
        begin
            if manual then
                read(a[i, j])
            else begin
                a[i, j] := random(100) - 50;
                write(a[i, j]:3, ' ');
            end;
        end;
    end;
    
    writeln();
    writeln();
    
    for j := 1 to m do
        if j mod 2 = 1 then begin
            k := k + 1;
            b[k] := 1;
            for i := 1 to n do
                b[k] := b[k] * a[i, j];
            write(b[k], ' ');
        end;
    
    writeln();
    
    for i := 1 to k - 1 do
    begin
        imax := i;
        for j := i + 1 to k do
            if b[j] > b[imax] then
                imax := j;
        n := b[i];
        b[i] := b[imax];
        b[imax] := n;
    end;
    
    for i := 1 to k do
        write(b[i], ' ');
end.
0,0(0 оценок)
Ответ:
raivon2005new
raivon2005new
13.01.2020 22:17
Program vasha_zadacha_1;var b,c:integer; 
 a:array [1..20] of integer; 
begin 
randomize; 
b:=0; 
for c:=1 to 10 do begin   
a[c]:=random(0,99);   
writeln('элемент массива ==>', a[c]); 
  if (a[c] mod 2 = 0) then b:=b+a[c]; 
 end; 
writeln('сумма чётных элементов массива', b); 
end.

program vasha_zadacha_2;
var b,c:word ; 
a:array [1..20] of integer; 
begin 
randomize; 
b:=1; 
for c:=1 to 10 do begin   
a[c]:=random(0,99); 
 writeln('элемент массива ==> ', a[c]); 
 b:=b*a[c];   
end; 
 writeln('произведение всех элементов массива ', b); 
end.

program vasha_zadacha_3;
var b,c:word ; 
a:array [1..20] of integer; 
begin 
randomize; 
b:=0; 
for c:=1 to 10 do begin   
a[c]:=random(0,99);   
writeln('элемент массива ==> ', a[c]);   
if (a[c] >= 50) and (a[c]<=60) then b:=b+a[c];   
end; 
writeln('сумма элементов в диапазоне от 50 до 60 ', b); 
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота