Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Aibulat
1

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

26.10.2012, 12:40. Просмотров 860. Ответов 3
Метки нет (Все метки)


Найти сумму квадратов элементов массива, расположенных после первого положительного числа
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.10.2012, 12:40
Ответы с готовыми решениями:

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

Вычислить сумму элементов массива, расположенных после первого положительного элемента
В одномерном массиве, состоящем из n вещественных элементов, вычислить Сумму элементов массива,...

Вычислить сумму элементов массива, расположенных после первого положительного элемента
Здравствуйте, помогите пожалуйста сделать программу: В одномерном массиве, состоящем из n...

Как найти сумму элементов массива, расположенных после последнего положительного элемента
Дано 12 вещественных чисел Как найти сумму элементов массива, расположенных после последнего...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
3
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 8,002
Записей в блоге: 1
26.10.2012, 12:50 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Var A:array[1..100] of integer;
    i,s,j,n:integer;
Begin
    write('Введите размерность: ');readln(n);
    j:=0;
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
      if (j=0)and(A[i]>0) then j:=i;
    End;
    s:=0;
    writeln;
    if j>1 then
    Begin
      For i:=1 to j-1 do
       s:=s+sqr(A[i]);
      writeln('Сумма: ',s);
    End
    else writeln('Нету положительных или он первый в массиве');
    readln;
End.
0
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
26.10.2012, 13:05 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const
  nmax=100;
var
  a: array[1..nmax] of integer;
  n,i,sum: integer;
  boo: boolean;
begin
  boo:=false;
  randomize;
  writeln('Введите количество элементов n: ');
  readln(n);
  writeln('Массив:');
  for i:=1 to n do
  begin
    a[i]:=random(19)-9;
    write(a[i],' ');
    if boo then sum:=sum+sqr(a[i]);
    if a[i]>0 then boo:=true;
  end;
  writeln('Сумма квадратов после первого положительного = ',sum);
  readln;
end.
Добавлено через 4 минуты
Artem7, после первого положительного
0
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 8,002
Записей в блоге: 1
26.10.2012, 13:07 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от ermolay Посмотреть сообщение
Artem7, после первого положительного
Да почему то я сделал до 1 положительного
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Var A:array[1..100] of integer;
    i,s,j,n:integer;
Begin
    write('Введите размерность: ');readln(n);
    j:=0;
    For i:=1 to n do
    Begin
      A[i]:=random(31)-15;
      write(A[i]:4);
      if (j=0)and(A[i]>0) then j:=i;
    End;
    s:=0;
    writeln;
    if j<n then
    Begin
      For i:=j+1 to n do
       s:=s+sqr(A[i]);
      writeln('Сумма: ',s);
    End
    else writeln('Нету положительных или он последний в массиве');
    readln;
End.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.10.2012, 13:07

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь или здесь.

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

Определить, сумму элементов массива, расположенных после первого положительного элемента
Дан массив 10 вещественных элементов.Определить, сумму элементов массива, расположенных после...

Вычислить сумму элементов массива, расположенных после первого положительного элемента
Кто знает как решается это? В одномерном массиве, состоящем из n вещественных элементов,...

Найти номер первого положительного элемента массива в1,в2 ... в15 и сумму элементов, расположенных правее него
1) найти номер первого положительного элемента массива в1,в2 ... в15 и сумму элементов,...


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

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

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