// PascalABC.NET 3.3, сборка 1625 от 17.01.2018 // Внимание! Если программа не работает, обновите версию!
begin var (n,m):=ReadInteger2('Количество строк и столбцов в массиве:'); Writeln('*** Исходный массив ***'); var a:=MatrRandom(n,m,-99,99); a.Println(4); Writeln(4*a.ColCount*'-'); var avg:=a.ElementsByRow.Average; Writeln('Среднее значение ',avg); var min:=(a.ElementsWithIndexes.Select(t->(Abs(t[0]-avg),t[1],t[2])) .MinBy(t->t[0])); Writeln('Наименее отличающийся от среднего элемент A[', min[1]+1,',',min[2]+1,'] = ',a[min[1],min[2]]) end.
Алгоритм: Объявляем 4 переменные вещественного типа и считываем их. Выводим математическую формулу, для вычисления стоимости. Количество бензина на 1 км пути * удвоенное расстояние до дачи * цена бензина.
Ниже приведена программа на языке Паскаль
var S, count, price, ans:real; Begin Writeln('Введите расстояние до дачи -> ');Readln(s); Writeln('Введите расход бензина на 100 км пути -> ');Readln(count); Writeln('Введите цену бензина -> ');Readln(price); ans:= ((count/100)* 2*s * price ); Writeln('Стоимость поездки: ', ans); end.
Пример: Введите расстояние до дачи -> 28.54 Введите расход бензина на 100 км пути -> 13.1 Введите цену бензина -> 45 Стоимость поездки: 336.4866
я требую йаое классное аниме на название так не смотрите в полне понравилось