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

Напишите программу для вычисления площади, периметра и высоты треугольника на языке pascal для программы pascalabc. с пояснениями)

👇
Открыть все ответы
Ответ:
JamesBond007007007
JamesBond007007007
24.11.2021

Значок, также иконка  — элемент графического интерфейса, небольшая картинка, обозначающая приложение, файл, каталог, окно, компонент операционной системы, устройство и т. п. Щелчок мышью или другим указательным устройством ввода на иконке запускает соответствующее действие

Значки на панели инструментов текстового редактора gedit

Иконка программы/данных, содержащая только ссылку на эту программу/данные, в русской терминологии именуется «ярлыком».

Иконки были изобретены в 1970 году в исследовательском центре PARC компании «Ксерокс» в Пало-Альто, чтобы облегчить взаимодействие с компьютером для

4,5(19 оценок)
Ответ:
ляятоп
ляятоп
24.11.2021
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.
4,4(100 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ