1) От 10 до 14
2) random(1, 10); random(-10,10); random(50,100);
3)
var a:array[1..100] of integer;
i, p, o:integer;
begin
p := 0;
o := 0;
for i := 1 to 100 do
a[i] := random(-20, 20);
writeln(a);
for i := 1 to 100 do begin
if a[i] >= 0 then p := p + 1
else o := o + 1;
end;
writeln('Положительных: ' + p);
writeln('Отрицательных: ' + o);
end.
4)
var a:array[1..20] of integer;
b:array[1..20] of integer;
i:integer;
begin
randomize;
for i := 1 to 20 do
begin
a[i] := random(1, 5);
b[i] := random(1, 5);
end;
for i := 1 to 20 do begin
if a[i] = b[i] then begin
writeln('Номер: ' + i);
writeln('Значение: ' + a[i]);
end;
end;
end.
На C++:
#include <iostream>
#include <cmath>
using namespace std;
int main() {
setlocale(0, "RU");
int a, b, c;
cout << "Введите коэффициенты уравнения: ";
cin >> a >> b >> c;
cout << "D = b^2 - 4 * a * c\n";
cout << "D = " << b * b << " - " << 4 * a * c << endl;
double D = (b * b) - (4 * a * c);
cout << "D = " << D << endl;
int d = sqrt(D);
cout << "vD = " << endl << endl;
a *= 2;
int x1 = (-b - d) / a;
int x2 = (-b + d) / a;
cout << "x1 = (-b - vD) / 2a = " << x1 << endl;
cout << "x2 = (-b + vD) / 2a = " << x2;
return 0;
}
