<span>В массиве чисел а1, а2, …, а10 поменять местами максимальный элемент с минимальным. Нужно написать программу на С++ с вынесением функции поиска max и min.</span>
1)
Program n1;
var i: integer;
sum: real;
begin
sum:=0;
for i:=102 to 1000 do if (i mod 3=0) then sum:=sum+i;
writeln('Сумма: ',sum);
end.
2)
Program n2;
var i: integer;
begin
for i:=10 to 99 do if (i mod 2<>0)then writeln(i);
end.
Var n:longint;
c:real;
begin
write ('N = ');
readln(n);
if (n mod 2 = 0) and (n>0) then c:=n/4 else
if (n mod 2 = 0) and (n<0) then c:=n*5 else
if (n mod = 1) then c:=sqr(n);
write (c:0:2);
end.
В таблице типа «объект-свойство» одна строка содержит информацию об одном объекте. Столбцы - отдельные характеристики (свойства) объектов. (Например каталог книг: в строках объекты - книги; в столбцах их свойства - автор, название, год выпуска и т.п.).
В таблице типа «объект-объект» отражается взаимосвязь между различными объектами. (Например таблица успеваемости: в строках объекты - ученики; в столбцах объекты - учебные дисциплины; цифры на пересечении строк и столбцов показывают их взаимосвязь - полученные оценки.)
Универсальное решение
var
a, d, s: real;
i, n: integer;
begin
writeln('Введите х, разность и n');
readln(a, d, n);
s := a;
for i := 2 to n do
begin
a := a + d;
s := s + a;
end;
writeln(s);
end.