<em>// PascalABC.NET 3.3, сборка 1542 от 05.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
Range(-10,10).Foreach(i->Println(i,Abs(i)))
end.
<u>Результат</u>
-10 10
-9 9
-8 8
-7 7
-6 6
-5 5
-4 4
-3 3
-2 2
-1 1
0 0
1 1
2 2
3 3
4 4
5 5
6 6
7 7
8 8
9 9
10 10
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#include <iostream>
int main(){
setlocale(0, "rus");
const int m = 3, n = 4;
int i, j, k, max, A[m][n];
for (i = 0; i < m; i++)
for (j = 0; j < n; j++)
std::cin >> A[i][j];
for (i = 0; i < m; i++)
{
max = 0;
for (j = 1; j < n; j++)
if (A[i][j]>A[i][max])
max = j;
for (k = 0; k < m; k++)
{
if (A[k][max]>=A[i][max])
break;
std::cout << i+1 << ";" << max+1 << "\n";
return 0;
}
}
std::cout << "0\n";
return 0;
}
Ну на хз правильно или нет так как из 8 класса,но все равно
const n = 10;
var a: array [1..N] of real;
i, k: integer;
s: real;
begin
randomize;
for i:=1 to n do
begin
a[i]:= random(10000, 50000);
write(a[i]:8:2,' ');
end;
writeln;
s:=0;
for i:=1 to n do s:=s+a[i];
s:=s/n;
writeln('ср.=',s:8:2);
k:=0;
for i:=1 to n do
if a[i]<s then a[i]:=a[i]*1.1
else if a[i]>s then k:=k+1;
writeln('k=',k);
for i:=1 to n do write(a[i]:8:2,' ');
writeln;
end.
Пример:
34973.00 16546.00 13691.00 41315.00 24650.00 44459.00 18117.00 37906.00 19255.00 17842.00
ср.=26875.40
k=4
34973.00 18200.60 15060.10 41315.00 27115.00 44459.00 19928.70 37906.00 21180.50 19626.20
(x+3*y)/(5*x*2*y)
................................
Int arr[100]; //Массив
int N=0; //Кол-во элементов массива
int c=0; //Счётчик
for(int i = 0; i < N; ++i) cin >> arr[i];
for (int i = 0; i < N; ++i) {
if((arr[i] / 10)%10 > arr[i]%10)c++;
}
cout << c;