Программа:
Pascal:
const n = 20; // кол-во элементов в массиве
var
arr: array[1..n] of integer;
i, maxEven: integer;
begin
maxEven := -MAXINT; // для будущего поиска минимального числа
write('Массив: ');
for i := 1 to n do
begin
arr[i] := random(-10, 10); // заполнение случайными числами от -10 до 10
write(arr[i], ' '); // вывод элемента
if arr[i] mod 2 = 0 then // если число чётное, то...
maxEven := arr[i]; // установить значение переменной maxEven, равное текущему макс.элементу
end;
writeln(#13, 'Максимальный чётный элемент: ', maxEven);
end.
#include <iostream>
using namespace std;
int main() {
float a, b, d, c, result, ab, dc;
ab = a + b;
dc = d + c;
result = ab / dc;
cout << "Результат: " << result << endl;
return 0;
}
Второй алгоритм, с использованием внешней функции.#include <iostream>
using namespace std;
float a, b, d, c, ab, dc, result;
float calc() {
ab = a + b;
dc = d + c;
result = ab / dc;
return result;
}
int main() {
cout << "Результат: " << calc() << endl;
return 0;
}
Третий алгоритм, с использованием нескольких функций.#include <iostream>
using namespace std;
float a, b, d, c, result;
float solve1() {
float ab;
ab = a + b;
return ab;
}
float solve2() {
float dc;
dc = d + c;
return dc;
}
float fraction() {
float res;
a = solve1();
b = solve2();
res = a / b;
return res;
}
int main() {
result = fraction();
cout << "Результат: " << result << endl;
return 0;
}
s:real;
begin
read(R,R1); // где R - внешний, а R1 - внутренний радиусы
s:=pi*(sqr(R)-sqr(R1));
write('Площадь кольца=', s);
end.