Безбумажная технология - технология накопления, подготовки и обмена информацией с использованием компьютерной техники и средств связи.
Ох и беда с вами, пишите нормально задание! Ах да и на каком языке?
1) если у вас один массив и нужно просчитать сумму элементов в массиве делаем следующее:
int n = 10, sum = 0;
int mass[n]; //если не работает с n инициализируем ручками сами (циферки в скобках пиши)
for (int i = 0; i < n; i++)
{
sum += mass[i];
}
2) если у вас 2 массива у нужно найти их сумму(то есть сложить числа в них стоящие на эквивалентных индексах в массиве) делаем следующее:
int mass1[10], mass2[10], mass3[10];
for (int i = 0; i < 10; i++)
{
mass3[i] = mass1[i] + mass2[2];
}
//PascalABC.NET 3.4.2
begin
var str := readstring('Введите строку:').ToWords;
var ch := readchar('Введите букву:');
str.Where(x -> Pos(LowerCase(ch), LowerCase(x)) = 1).Count.Print;
end.
Время1= 80*1024*8 бит/2048 бит в сек=320 сек
размер файла за время1 = 768 бит в сек*320 сек=245760 бит=30720 байт= 30 Кбайт
Const n=3; m=4;
var a:array[1..n,1..m] of integer;
i,j:integer;
begin
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',',j,'] =');
readln(a[i,j]);
end;
writeln('Исходный массив:');
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:4);
writeln;
end;
for i:=1 to n do
for j:=1 to m do
if a[i,j] mod 2 = 0 then a[i,j]:=a[i,j] div 2;
writeln('Полученный массив:');
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:4);
writeln;
end;
end.
Пример:
a[1,1] =45
a[1,2] =32
a[1,3] =76
a[1,4] =12
a[2,1] =85
a[2,2] =19
a[2,3] =35
a[2,4] =74
a[3,1] =65
a[3,2] =37
a[3,3] =83
a[3,4] =67
Исходный массив:
45 32 76 12
85 19 35 74
65 37 83 67
Полученный массив:
45 16 38 6
85 19 35 37
65 37 83 67
