сервис вопросов и ответовДан двумерный целочисленный массив А. Сформировать одномерный массив В, состоящий из суммы элементов каждого столбца массива А.
10-11 класс|
|
Alesay06
02 янв. 2014 г., 5:46:45 (10 лет назад)
Arinaopenkina
02 янв. 2014 г., 7:44:19 (10 лет назад)
const
n=10;
m=5;
var
i,j,s:integer;
a:array[1..m,1..n]of integer;
b:array[1..n]of integer;
begin
writeln('Массив А:');
for i:=1 to m do
begin
for j:=1 to n do
begin
a[i,j]:=random(10);
write(a[i,j]:3);
end;
writeln;
end;
for j:=1 to n do
begin
s:=0;
for i:=1 to m do s:=s+a[i,j];
b[j]:=s;
end;
writeln('Массив В:');
for i:=1 to n do write(b[i]:3);
end.
MarinaBernkastel
02 янв. 2014 г., 9:43:48 (10 лет назад)
Размерность массива А дается?
Nicesergik03
02 янв. 2014 г., 11:31:29 (10 лет назад)
нет, как написано
Ответить
Другие вопросы из категории
Каково наибольшее целое число X, при котором истинно высказывание? 1) (90 < X•X) → (X < (X-1)) 2) (X•X - 1 > 100) → (X•(X-1)< 100) 3) (X•(X+
1) > X•X + 7) → (X•(X+1) ≤ X•X + 7) 4) (X•X - 7 > 15) → (X•X + 8 < 35) A) 7 B) 9 C) 10 D) 5
Y=log5(x3+3) на интервале [1,10] с шагом h=0,1
построить график в екселе
Читайте также
1.Дан целочисленный массив X(N). Найти сумму четных элементов массива .Если эта сумма больше заданного числа Z , то у элементов , расположенных на
нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.
2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов
3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.
Паскаль помогите пжл!!!!!! Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива,
расположенных между максимальным и минимальным элементами.
Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами
ну или исправьте мое пжл
program fgf;
var mas:array[1..100] of real;
max,min:real;
i,n,c,b:shortint;
p:real;
f1,g:text;
begin;
assign (f1, 'input.txt');
reset (f1);
readln (f1, n);
for i:=1 to N do read (mas[i]);
max:=mas[i];
for i:=2 to N do begin
if mas[i]>max then begin
max:=mas[i];
c:=i;
end;
end;
min:=mas[1];
for i:=2 to N do begin
if mas[i]<min then begin
max:=mas[i];
b:=i;
end;
end;
close(f1);
assign (g, 'output.txt');
rewrite (g);
p:=1;
if b<c then I:=b+1 and c-1
else for I:=c+1 to b-1 do p:=p*mas[i];
if (n<3) or (b+1=c) or (c+1=b) then writeln(g,'0.00') else write(p:3:3) ;
close (g);
end.
ПАСКАЛЬ.1)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 1000.опишите на русском языке или на одном из
языков программирования алгоритм,позволяющий найти среднее арифметическое нечетных трехзначных чисел,записанных в этом массиве.если ни одного такого числа нет,нужно вывести сообщение об этом.
2)дан целочисленный массив из 30 элементов.элементы массива могут принимать целые значения от 0 до 100.опишите на русском языке или на одном из языков программирования алгоритм,позволяющий найти и вывести произведение элементов массива,которые имеют четное значение и не оканчиваются на 0.
1)дан одномерный массив из 5 элементов.найти сумму положительных элементов. 2)Дан одномерный массив из 7
элементов.Найти колличество четных положительных элементов.
3)Дан массив из 6 элементов.Найти произвдение положительных из них.
Вы находитесь на странице вопроса "Дан двумерный целочисленный массив А. Сформировать одномерный массив В, состоящий из суммы элементов каждого столбца массива А.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.