нужно написать программу и обязательно в виде функии(перегрузка функции) если решите кину на телефон - id1059698120200409 от CoRoLi07 09.04.2020 04:47

Question

Информатика: нужно написать программу и обязательно в виде функии(перегрузка функции) если решите кину на телефон 50 р В одномерном массиве, состоящем из n элементов: а) вычислить сумму положительных элементов массива; б) вычислить произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами; в) упорядочить элементы массива по убыванию нужно написать программу и обязательно в виде функии(перегрузка функции)

CoRoLi07 · Accepted Answer

1) program p1;
var a,b:integer;
begin
writeln('Введите 1-е число: ');read(a);
writeln('Введите 2-е число: ');read(b);
if(a>=b) then writeln('максимальное число: ', a) else writeln('максимальное число: ', b);
end.

2)
program p1;
procedure MaxNumber(a,b: integer; var max: integer);
begin
if a>=b then max:=a else max:=b;
end;
var a,b,c,d,m:integer;
begin
writeln('Введите 1-е число: ');read(a);
writeln('Введите 2-е число: ');read(b);
writeln('Введите 3-е число: ');read(c);
writeln('Введите 4-е число: ');read(d);
MaxNumber(a,b,m);
MaxNumber(m,c,m);
MaxNumber(m,d,m);
writeln('максимальное число: ',m);
end.

MOGZ ответил