Const
K = 3;
N = 4;
Var
A:array[1..K,1..N] of integer;
Max,Min,i,j:integer;
Begin
For i:= 1 to K do
Begin
For j:= 1 to N do
Begin
A[i,j]:=random(21)-10;
Write(A[i,j]:3,' ')
End;
WriteLn
End;
Max:=A[K,N];
Min:=A[K,N];
For i:= 1 to K do
For j:= 1 to N do
Begin
if Max<A[i,j] then Max:=A[i,j];
if Min>A[i,j] then Min:=A[i,j]
End;
WriteLn('Min = ',Min);
WriteLn('Max = ',Max);
End.
Пример:
-3 -2 5 -8
2 -3 7 5
-10 -2 7 4
Min = -10
Max = 7
Лишнее конвер
остальные выписывай
var
a, b, c, D: real;
begin
write('A= ');readln(a);
write('B= ');readln(b);
write('C= ');readln(c);
D := b * b - 4 * a * c;
if D < 0 then
writeln('Нет корней')
else
if D = 0 then
writeln('x1=', -b / (2 * a))
else
if D > 0 then
begin
writeln('x1= ', (-b - sqrt(d)) / (2 * a));
writeln('x2= ', (-b + sqrt(d)) / (2 * a));
end;
end.
A)
#include <iostream>
#include <cmath>
using namespace std;
int main() {
double c;
cin >> c;
for (int i=100; i<=1000; i+=50)
cout << i << " " << round(c*i/10)/100 << endl;
return 0;
}
b)
#include <iostream>
using namespace std;
int main() {
int n;
cin >> n;
for (int i=1; i<10; i++)
cout << i << " " << i*n << endl;
return 0;
}