Решить по информатике, . если что проверять нужно будет в паскале. 1. в массиве хранятся сведения о - id628188020210517 от tumoannasehko 17.05.2021 17:45

Question

Информатика: Решить по информатике, . если что проверять нужно будет в паскале. 1. в массиве хранятся сведения о росте 30 человек. заполнить массив, если известно, что рост самого высокого 205 см,а самого низкого - 105 см. найти средний рост. 2.найти среднее элементов массива, принадлежащих [a, b]. количество элементов и границы ввести с клавиатуры. 3.дан массив из 45 целых чисел от 1 до 1000. вычислить сумму всех двузначных элементов массива и произведение однозначных элементов.

tumoannasehko · Accepted Answer

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
function FS(a,b:real):=0.5*a*b;
begin
var a,b:real;
Write('Катеты первого треугольника: '); Read(a,b);
var S1:=FS(a,b);
Write('Катеты второго треугольника: '); Read(a,b);
var S2:=FS(a,b);
if S1>S2 then Writeln('Площадь первого треугольника больше')
else
if S1<S2 then Writeln('Площадь второго треугольника больше')
else Writeln('Площади треугольников равны')
end.

Тестовое решение
Катеты первого треугольника: 4.18 6
Катеты второго треугольника: 5.4 3.9
Площадь первого треугольника больше

MOGZ ответил