Ну так как знаю язык программы Dev-C++, напишу и если я не ошибаюсь это массив :-) #include main() { int i, n; float s; printf("n="); scanf("%d", &n); int a[n]; for(i=0; i { printf("\n a[%d]=", i); scanf("%d", &a[i]); } s=0; for(i=0; i s=s+a[i]; printf("s=%f", s); puts("Massiv:"); for(i=0; i printf("\n a[%d]=%d", i, a[i]); getchar(); return(0); } напишу краткое объяснение, 1- пишем н, произвольное, это количемтво этих исел будет, 2- создаем массив с и ( параметр массива) меньшим н там мы пишем эти числа, сумму которых нужно всчитать 3- находим сумму 4- пишем чемк она равна 5- выводим массив и все если программа не бкдет идти напиши вконце место return(0); => getchar();
Uses crt; const n = 100; var a: array [1..n] of integer; b: array [1..n] of integer; i, j, m: byte; p1, p2: integer; begin write('Количество элементов: '); readln(m); clrscr; writeln('Ввод массива A'); writeln; for i:=1 to m do begin write('A[',i,']: '); readln(a[i]); end; clrscr; writeln('Ввод массива B'); writeln; for i:=1 to m do begin write('B[', i, ']: '); readln(b[i]); end; clrscr; writeln; writeln('Исходный массив А:'); for i:=1 to m do write(a[i]:4); writeln; writeln; writeln('Исходный массив B:'); for i:=1 to m do write(b[i]:4); for i:=1 to m-1 do for j:=m downto i do begin if a[i] > a[j] then begin p1:=a[i]; a[i]:=a[j]; a[j]:=p1; end; if b[j] > b[i] then begin p2:=b[i]; b[i]:=b[j]; b[j]:=p2; end; end; writeln; writeln; writeln('Массив А по возрастанию:'); for i:=1 to m do write(a[i]:4); writeln; writeln; writeln('Массив B по убыванию:'); for i:=1 to m do write(b[i]:4); writeln; writeln; writeln('Массив A+B:'); for i:=1 to m do begin a[i]:=a[i]+b[i]; write(a[i]:4); a[i]:=a[i]-b[i]; end; writeln; writeln; writeln('Массив B-A:'); for i:=1 to m do begin b[i]:=b[i]-a[i]; write(b[i]:4); end; readln; end.
#include
main()
{
int i, n;
float s;
printf("n=");
scanf("%d", &n);
int a[n];
for(i=0; i {
printf("\n a[%d]=", i);
scanf("%d", &a[i]);
}
s=0;
for(i=0; i s=s+a[i];
printf("s=%f", s);
puts("Massiv:");
for(i=0; i printf("\n a[%d]=%d", i, a[i]);
getchar();
return(0);
}
напишу краткое объяснение, 1- пишем н, произвольное, это количемтво этих исел будет,
2- создаем массив с и ( параметр массива) меньшим н там мы пишем эти числа, сумму которых нужно всчитать
3- находим сумму
4- пишем чемк она равна
5- выводим массив
и все
если программа не бкдет идти напиши вконце место return(0); => getchar();
crt;
const
n = 100;
var
a: array [1..n] of integer;
b: array [1..n] of integer;
i, j, m: byte;
p1, p2: integer;
begin
write('Количество элементов: ');
readln(m);
clrscr;
writeln('Ввод массива A');
writeln;
for i:=1 to m do
begin
write('A[',i,']: ');
readln(a[i]);
end;
clrscr;
writeln('Ввод массива B');
writeln;
for i:=1 to m do
begin
write('B[', i, ']: ');
readln(b[i]);
end;
clrscr;
writeln;
writeln('Исходный массив А:');
for i:=1 to m do write(a[i]:4);
writeln; writeln; writeln('Исходный массив B:');
for i:=1 to m do write(b[i]:4);
for i:=1 to m-1 do
for j:=m downto i do
begin
if a[i] > a[j] then
begin
p1:=a[i]; a[i]:=a[j]; a[j]:=p1;
end;
if b[j] > b[i] then
begin
p2:=b[i]; b[i]:=b[j]; b[j]:=p2;
end;
end;
writeln; writeln; writeln('Массив А по возрастанию:');
for i:=1 to m do write(a[i]:4);
writeln; writeln; writeln('Массив B по убыванию:');
for i:=1 to m do write(b[i]:4);
writeln; writeln; writeln('Массив A+B:');
for i:=1 to m do
begin
a[i]:=a[i]+b[i];
write(a[i]:4);
a[i]:=a[i]-b[i];
end;
writeln; writeln; writeln('Массив B-A:');
for i:=1 to m do
begin
b[i]:=b[i]-a[i];
write(b[i]:4);
end;
readln;
end.