Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/10: Рейтинг темы: голосов - 10, средняя оценка - 4.60
apple_jackkkkk
0 / 0 / 0
Регистрация: 22.05.2013
Сообщений: 6
#1

Даны действительные числа a1, a2, … a10. Подсчитать сумму всех положительных элементов массива.

22.05.2013, 22:32. Просмотров 1905. Ответов 5
Метки нет (Все метки)

Даны действительные числа a1, a2, … a10. Подсчитать сумму всех положительных элементов массива. Все отрицательные элементы массива заменить их квадратами и преобразован-ный массив вывести на печать.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.05.2013, 22:32
Ответы с готовыми решениями:

Подсчитать сумму всех положительных элементов массива
Даны действительные числа a1, a2, … a10. Подсчитать сумму всех положительных...

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

Подсчитать сумму положительных элементов массива,кратных 3
Задан массив из 12 целых чисел.Подсчитать сумму положительных элементов...

Найти сумму всех положительных элементов массива
помогите с задачкми) плиз):):help::help::help: 1) найти сумму всех...

Найти сумму всех положительных элементов массива Y[4, 4]
1)Найти сумму всех положительных элементов массива Y, найти среднее...

5
Taftis
Pascal, Delphi, C++
215 / 128 / 91
Регистрация: 01.12.2012
Сообщений: 628
23.05.2013, 07:29 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
uses crt;
var
.
..
...
begin
.
..
...
for i:=1 to 10 do
 if A[I]>0 then
 s:=s+a[i]
 else
 if a[i]<0 then
 a[i]:=a[i]*a[i];
 .
 ..
 ...
 end.
0
apple_jackkkkk
0 / 0 / 0
Регистрация: 22.05.2013
Сообщений: 6
23.05.2013, 11:43  [ТС] #3
Даны действительные числа a1, a2, … a10. Подсчитать сумму всех положительных элементов массива. Все отрицательные элементы массива заменить их квадратами и преобразованный массив вывести на печать

Как преобразованный массив вывести на печать????

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
Program fdd;
Var
S,I,G,F:INTEGER;
A:ARRAY [1..10] OF INTEGER;
Begin
FOR I:=1 TO 10 DO READLN (A[I]);
S:=0;
FOR I:=1 TO 10 DO IF A[I]>0 THEN S:=S+A[I];
FOR I:=1 TO 10 DO IF A[I]<0 THEN G:=SQR(A[I])
                                   
                    
Writeln('Сумма положительных=',S);
End.
0
Taftis
Pascal, Delphi, C++
215 / 128 / 91
Регистрация: 01.12.2012
Сообщений: 628
23.05.2013, 18:41 #4
это
Pascal
1
2
3
4
5
6
for i:=1 to 10 do
 if A[I]>0 then
 s:=s+a[i]
 else
 if a[i]<0 then
 a[i]:=a[i]*a[i];
вместо
Pascal
1
2
FOR I:=1 TO 10 DO IF A[I]>0 THEN S:=S+A[I];
FOR I:=1 TO 10 DO IF A[I]<0 THEN G:=SQR(A[I])
а вывод
Pascal
1
2
3
for i:=1 to 11 do begin 
write (a[i]:3:2);
end;
0
apple_jackkkkk
0 / 0 / 0
Регистрация: 22.05.2013
Сообщений: 6
24.05.2013, 00:14  [ТС] #5
не работает
0
loneliness
1 / 1 / 0
Регистрация: 25.05.2013
Сообщений: 20
26.05.2013, 12:11 #6
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
uses crt;
var a:array[1..10] of integer;
    b:array[1..10] of integer;
    i,sum:integer;
begin
clrscr;
randomize;
sum:=0;
writeln('Исходный массив');
for i:=1 to 10 do begin
                  a[i]:=random(31)-15;
                  write(,a[i]:4);
                  if a[i]>0 then sum:=sum+a[i];
                  end;
                  writeln;
writeln('преобразованный массив');
for i:=1 to 10 do begin
                  if a[i]<0 then b[i]:=a[i]*a[i]
                            else b[i]:=a[i];
                  write(b[i]:4);
                  end;
 
writeln;
writeln('Сумма положительных',sum);
end.
1
26.05.2013, 12:11
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.05.2013, 12:11

Найти сумму всех положительных элементов массива
дан массив вещественных чисел

Подсчитать сумму всех элементов этого массива
Ввести с клавиатуры элементы одномерного массива А(5). Подсчитать сумму всех...

Подсчитать сумму положительных и среднее арифметическое отрицательных элементов одномерного массива
Дан одномерный массив размером М. Подсчитать сумму положительных и среднее...


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

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

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