сервис вопросов и ответовДАН ДВУМЕРНЫЙ МАССИВ ЧИСЕЛ. ОПРЕДЕЛИТЬ, СУММУ ЭЛЕМЕНТОВ ВТОРОГО СТОЛБЦА МАССИВА, БОЛЬШИХ 10.
10-11 класс|
|
Adm1306
10 дек. 2014 г., 6:17:33 (9 лет назад)
КаприZ
10 дек. 2014 г., 8:33:50 (9 лет назад)
var
a: array[1..10, 1..10] of integer;
i, j, s: integer;
begin
s := 0;
for i := 1 to 10 do
begin
for j := 1 to 10 do
begin
a[i, j] := random(20) + 1;
write(a[i, j]:3);
if (j = 2) and (a[i, j] > 10) then s := s + a[i, j];
end;
writeln;
end;
writeln('Сумма элементов 2го столбца больших 10 равна', s);
end.
Ответить
Другие вопросы из категории
Решить задачу в Паскале (абв - всё в одной программе!)
"В символьном массивеиз 6 элементов, заданных с клавиатуры:
а) поменять все маленькие латинские буквы на большие;
б) найти кол-во запятых;
в) поменять все маленькие русские буквы на большие."
СРОЧНО!!! жду верного решения :) спасибо заранее
Составить блок схему алгоритма, решающего следующию задачу.
Дано: у=(a+b)-(a+c)
Найти:сумму того чему равен у
Читайте также
Дан Двумерный массив из n×m элементов (N,М≤ 100) a11, a12 , ..., a1N ; am1, am2
, ..., amN.. Найти сумму элементов на нечетных местах массива и произведение элементов на четных местах массива.
Паскаль помогите пжл!!!!!! Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива,
расположенных между максимальным и минимальным элементами.
Дан одномерный массив, состоящий из вещественных элементов. Найти произведение элементов массива, расположенных между максимальным по модулю и минимальным по модулю элементами
ну или исправьте мое пжл
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.Дан целочисленный массив X(N). Найти сумму четных элементов массива .Если эта сумма больше заданного числа Z , то у элементов , расположенных на
нечетных местах , сменить знак на противоположный ,иначе выдать соответствующее сообщение.
2.Дан массив X(N,M) . Среди четных столбцов массива найти сумму положительных элементов
3.Найти произведение элементов каждого столбца массива принадлежащих промежутку [2,6] . Из полученных значений сформировать одномерный массив.
Составить программу на языке Паскаль: 1)Для массива K из 12 вещественных чисел определить сколько элементов массива меньше 0. 2)В массиве М из 10 целых
чисел найти количество элементов равных 3. 3)В массиве из 8 целых найти номер массива с наибольшим значением. 4)В массиве из 12 целых чисел найти количество и сумму элементов, расположенных до максимального элемента. 5)Для массива из 15 вещественных подсчитать количество элементов массива меньших суммы первого и последнего элементов массива.
Помогите пожалуйста с инфоматикой. Написать программу на паскале.
Дан двумерный массив из пяти строк и пяти столбцов. Найти сумму элементов первой стоки и произведение элементов второго столбца.
Вы находитесь на странице вопроса "ДАН ДВУМЕРНЫЙ МАССИВ ЧИСЕЛ. ОПРЕДЕЛИТЬ, СУММУ ЭЛЕМЕНТОВ ВТОРОГО СТОЛБЦА МАССИВА, БОЛЬШИХ 10.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.