Вводится одномерный массив размерностью 100 для обработки данной программой. Что делает программа? Program pr;
Var х: array [1..100] of integer;
i, s: integer;
begin
s: =0;
for i:=l to 100 do
begin
readln (x [i]) ;
if i >0 then s:=s+x[i] ;
end;
s:=s/100
writeln (s) ;
end.
Данная программа определяет:
a) сумму значений элементов массива с четными индексами;
b) сумму значений положительных элементов;
c) количество элементов, значение которых четное число;
d) среднее арифметическое значение положительных элементов массива.
begin
Square := abs((x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1)) / 2;
end;
var
x1, y1, x2, y2, x3, y3, s1, s2: real;
begin
write('Задайте первый треугольник(x1,y1,x2,y2,x3,y3): ');
readln(x1, y1, x2, y2, x3, y3);
s1 := Square(x1, y1, x2, y2, x3, y3);
write('Задайте второй треугольник(x1,y1,x2,y2,x3,y3): ');
readln(x1, y1, x2, y2, x3, y3);
s2 := Square(x1, y1, x2, y2, x3, y3);
if s1 > s2 then writeln('Площадь первого треугольника больше')
else if s1 < s2 then writeln('Площадь второго треугольника больше')
else writeln('Площади треугольников равны');
end.
p.s. проверять существуют ли такие треугольники не нужно, т.к. они уже заданы и нам нужно определить площадь большего.
#include <iostream>
int main()
{
using namespace std;
const int n = 6;
double arr[n];
for (int i = 0; i < n; ++i)
{
cout << "Enter #" << i + 1 << " element: ";
cin >> arr[i];
}
for (int i = 0; i < n; ++i)
cout << arr[i] << " ";
cout << endl;
double p = 1.0;
bool flag = false;
for (int i = 0; i < n; ++i)
if (arr[i] < 0)
{
p = p * arr[i];
flag = true;
}
if (!flag)
p = 0.0;
cout << "Multiplication of negative: " << p << endl;
int imax = 0;
for (int i = 1; i < n; ++i)
if (arr[i] > arr[imax])
imax = i;
double s = 0;
for (int i = 0; i < imax; i++)
if (arr[i] > 0)
s += arr[i];
cout << "Sum of positive before max: " << s << endl;
double temp;
for (int i = 0, m = n - 1; i < n / 2; ++i, --m)
{
temp = arr[i];
arr[i] = arr[m];
arr[m] = temp;
}
for (int i = 0; i < n; ++i)
cout << arr[i] << " ";
cout << endl;
return 0;
}