Var ar:array of integer;
max,i,n,j:integer;
begin;
max:=-2147483648; //нижняя граница integer
writeln('Введите размерность массива:'); //массив всегда приятнее
readln(n);
setlength(ar,n+1); //задали размерность динамического массива
for i:=1 to n do
begin;
write('Введите ',i, ' элемент массива:');
readln(ar[i]);
end;
for i:=1 to n do
for j:=1 to n do
if max<ar[i]*ar[j] then max:=ar[i]*ar[j];
writeln('Result:',max);
<span>end.</span>
#include <iostream>
#include <cmath>
using namespace std;
int main()
{
double a;
double b;
double c;
double x;
cout << "Введите значение a: ";
cin >> a;
cout << "Введите значение b: ";
cin >> b;
cout << "Введите значение c: ";
cin >> c;
if((b*b - 4*a*c) >= 0) //Если дискриминант больше или равен 0
{
x = ( -1*b + sqrt(b*b - 4*a*c) ) / (2 * a);
cout << "Первый корень равен " << x << endl;
x = ( -1*b - sqrt(b*b - 4*a*c) ) / (2 * a);
cout << "Второй корень равен " << x << endl;
}
else
{
cout << "Дискриминант меньше 0, <span>нет вещественных корней</span>." << endl;
}
return 0;
}
IVAN.DOC
КУКУ.BMP
A.B.TXT
LIN?.EXE нельзя ибо ? недопустимый символ.
TREE*.BMP опять же недопустимый символ
Поле чудес.EXE хз почему, но вроде как нельзя EXE русскими буквами называть при компиляции.
Ответ : б) сетка не является типовой диаграммой
1)Программа.
program NekitZor;
var
a,h:integer;
s:real;
begin
writeln('Введите длину основания треугольника');
readln(a);
writeln(Введите высоту треугольника);
readln(h);
s:=1/2*a*h;
writeln(s);
end.
2)Программа
program NekitZor;
var a,b,h:integer;
s:real;
begin
writeln('Введите длины основания трапеции');
readln(a,b);
writeln('Введите высоту трапеции');
readln(h);
s:=((a+b)/2)*h;
writeln(s);
end.