<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('Количество строк/столбцов в массиве:');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var (K,L):=ReadInteger2('Укажите номера столбца и строки:');
var e:=a[L-1,K-1];
Writeln('S=',a.ElementsByRow.Where(t->t<e).Sum)
end.
<u>Пример</u>
Количество строк/столбцов в массиве: 7
79 9 98 -38 -9 -64 -69
90 -67 -76 -53 -83 -43 70
85 27 37 51 -75 9 98
-74 -39 -33 34 30 -61 -46
-81 59 -19 -40 3 -21 -71
-41 -21 18 -9 -2 25 -88
34 -84 -73 46 -14 -75 -37
----------------------------
Укажите номера столбца и строки: 5 2
S=-172
1) 2048 * 1536 = 3145728 точек в изображении
2) 3145728 * 3 байта = 9437184 байт - размер файла
9437184 байт / 1024 = 9216 Килобайт / 1024 = 9 Мегабайт
Ответ: 9 Мб размер этого графического файла
<span>Правильный ответ 7. Алгоритм считает сколько
исполнителей набрали меньше 25 голосов. Это 1-й,2-й,3-й,5-й,6-й,8-й,9-й
всего таких - 7</span>
<em><u>Pascal:</u></em>
var a:array [1..10] of integer;
i:integer;
begin
for i:=1 to n do
begin
write ('A[',i,'] = ');
readln (a[i]);
end;
for i:=1 to 10 do
if a[i] mod 2 = 1 then write (a[i],' ');
end.
<em><u>C++:</u></em>
#include <iostream>
using namespace std;
int main()
{
int a[10];
for (int i = 0; i<10; i++)
{
cout <<"A[" <<i <<"] = '";
cin >>a[i];
}
for (int i = 0; i<10; i++)
if (a[i]%2==1)
cout <<a[i] <<" ";
return 0;
}
Var
x, a, s: real;
n, i: integer;
begin
write('Введите x и n ');
readln(x, n);
a := 1;
s := a;
for i := 1 to n do
begin
a := a * (-1) * x * x / (2 * i - 1) / (2 * i);
s := s + a;
end;
writeln('S = ', s:10:3);
end.