Регистрация
Иван199928
27.05.2022 22:22
Информатика
Есть ответ 👍

Вцелочисленных массивах a и b содержатся длины катетов десяти прямоугольных треугольников: a[i] - длина первого катета; b[i] - длина второго катета i-го треугольника. найдите треугольник с наибольшей площадью. выведите его номер, длины катетов и площадь. предусмотрите случай,когда таких треугольников несколько.

272
335
Посмотреть ответы 2

Ответы на вопрос:

alina1930
alina1930
4,5(71 оценок)
Const   n=10; var   a,b: array[1..n] of integer;   i,si,smax: integer; begin   writeln('введите парами длины катетов ',n,' треугольников');   smax: =0;   for i: =1 to n do begin       read(a[i],b[i]);       si: =a[i]*b[i]; { пополам разделим потом максимальное }       if si> smax then smax: =si       end;   writeln('треугольник(и) с максимальной площадью, равной ',smax/2,': ');   for i: =1 to n do       if a[i]*b[i]=smax then writeln('№',i,': ',a[i],'x',b[i]);   writeln end. пример работы введите парами длины катетов 10 треугольников 7 16 18 10 9 5 15 11 9 19 15 12 11 13 9 20 14 10 12 8 треугольник(и) с максимальной площадью, равной 90: №2: 18x10 №6: 15x12 №8: 9x20
ученик17101
ученик17101
4,6(36 оценок)

uses crt;

var

  ar: array[1..19]of integer;

  i, mul, sum, count, min, mini: integer;

begin

  count : = 0;

  sum : = 0;

  mul : = 1;

  randomize;

  for i : = 1 to 19 do

  begin

    ar[i] : = random(13) - 6;

    mul : = mul * ar[i];

    if(ar[i] mod 2 = 0) then

    begin

      textbackground(green);  

      sum : = sum + ar[i];

      count : = count + 1;

    end;

    if(ar[i] = 5) then

      textbackground(red);

    write(ar[i], ' ');

    textbackground(black);  

  end;

  writeln();

  writeln('произведение всех элементов массива = ', mul);

  writeln('сумма четных чисел = ', sum, ', количество = ', count);

  min : = ar[1];

  mini : = 1;

  write('номера элементов, равных 5: ');

  for i : = 1 to 19 do

  begin

    if(ar[i] = 5) then

      write(i, ' ');

    if((ar[i]) < min) then

    begin

      min : = ar[i];

      mini : = i;

    end;

  end;

  writeln();

  writeln('минимальный элемент = ', min, ', его номер = ', mini);

end.

Популярно: Информатика