Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
stroitel
0 / 0 / 0
Регистрация: 28.10.2013
Сообщений: 3
#1

Вывести сумму элементов массива - Turbo Pascal

28.10.2013, 12:37. Просмотров 260. Ответов 2
Метки нет (Все метки)

Здравствуйте.
Помогите решить задание.
Даны два массива: A=(-5.2, 16. 28, 4.1, 5.2, 48, -4.5, 28);
B=(16.24, 52, 16, 28, 101, -1).
Вывести сумму элементов массива Z, в котором: Z[i]=
a[i], если (b[i]+i)^2 >a[i]
b[i], если (b[i]+i)^2=< a[i]
0
Миниатюры
Вывести сумму элементов массива  
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.10.2013, 12:37
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вывести сумму элементов массива (Turbo Pascal):

Найти сумму элементов нечётных строк массива. Вывести сам массив и сумму
Задать элементы массива с помощью генератора случайных чисел в интервале от -5...

Вывести на экран сумму 1 и 7 элемента массива, вывести произведение 5 и 4 элементов
напишите программу которая обеспечит ввод массива из 7 целых чисел, вывести на...

Вычислить и вывести сумму элементов массива, которые имеют парные индексы
Помогите пожалуйста с одномерными масивами. 1. Вычислить и вывести сумму...

Найти сумму случайно сгенерированных элементов массива, одновременно делящихся на 5 и 8, и вывести ее на экран
Найти сумму элементов массива целых чисел, которые делятся на 5 и на 8...

Найти сумму элементов массива с нечетными индексами и вывести те элементы, значение которых больше 5 и меньше 10
Дан одномерный массив из 10 целых чисел заполненный случайным образом. а)...

Вывести сумму составных чисел среди элементов массива, которые являются делителями числа 360.
Доброго времени суток. У меня задачка: Вводятся размер рдномерного массива и...

2
Sead
66 / 69 / 33
Регистрация: 07.10.2013
Сообщений: 396
28.10.2013, 12:55 #2
Лучший ответ Сообщение было отмечено stroitel как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
uses crt;
var a,b,c:array[1..25] of real;
i,n:integer;j:real;
begin
writeln('Vvidi dlinu massiva');
readln(n);
writeln('Massiv A');
for i:=1 to n do begin
write('a[i]:=');
readln(a[i]);
end;
writeln;
writeln('Massiv B');
for i:=1 to n do begin
write('b[i]:=');
readln(b[i]);
end;
writeln;
writeln('Massiv C');
for i:=1 to n do begin
if sqr(b[i]+i)>a[i] then c[i]:=a[i] else if sqr(b[i]+i)<= a[i] then c[i]:=b[i];
write(c[i]);
end;
for i:=1 to n do begin
j:=j+c[i];
end;
writeln('Summa ravna: ',j);
end.
так?
1
stroitel
0 / 0 / 0
Регистрация: 28.10.2013
Сообщений: 3
28.10.2013, 13:12  [ТС] #3
Вроде все правильно работает.
Спасибо большое, не ожидал что так быстро помогут!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.10.2013, 13:12
Привет! Вот еще темы с решениями:

Найти и вывести сумму элементов каждой строки и максимальную сумму элементов матрицы
Ввести матрицу А(5,7). Найти и вывести сумму элементов каждой строки и...

Вывести на экран сумму, произведение и номера положительных элементов одномерного массива после последнего нулевого элемента
Помогите пожалуйста решить задачи, очень нужно 1. Вывести на экран сумму,...

Найдите сумму положительных элементов двумерного массива размера 20 на 25 и умножьте её на сумму отрицательных элементов.
Найдите сумму положительных элементов двумерного массива размера 20 на 25 и...

Найти с помощью рекурсии сумму элементов массива и сумму элементов больше нуля
Всем привет!!! Прошу помочь мне разобраться с рекурсией: Нужно найти с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru