0 / 0 / 0
Регистрация: 12.12.2009
Сообщений: 22
1

В массиве из 23 элементов найти сумму элементов, отличных от последнего элемента.

13.12.2009, 12:47. Показов 2311. Ответов 6
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
1. а) В массиве из 23 элементов найти сумму элементов, отличных от последнего элемента.

Б) Дан массив из 40 элементов. Найти количество элементов, меньших первого элемента.

В) Дан одномерный массив на 23 элемента. Подсчитать количество положительных элементов, следующих за первым отрицательным элементом.

2. а) В массиве из 16 элементов найти среднее арифметическое положительных элементов.

Б) Дан массив из 25 элементов. Найти сумму элементов, больших последнего элемента.

В) Дан одномерный массив из 30 элементов. Сформировать второй массив, в котором сначала идут все элементы первого массива, кратные 5, а затем все остальные.

Зарание благодарен за старание и понимание!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.12.2009, 12:47
Ответы с готовыми решениями:

В массиве найти сумму элементов отличных от последнего
1. В массиве 23 элементов найти сумму элементов отличных от последнего.

Определить, сколько в массиве элементов, отличных от последнего элемента
Помогите с кодом Задан массив из 50 чисел. Заполните его случайными числами. Определить, сколько...

В массиве из 23 элементов найти сумму элементов, отличающихся от последнего элемента
Помогите пожалуйста решить следующие задачи по C#: А) В массиве из 23 элементов найти сумму...

Найти количество элементов массива, отличных от значения последнего элемента
массив из 50 чисел и заполнить его случайными числами.сколько в нем элементов, отличных от...

6
18 / 18 / 8
Регистрация: 07.11.2009
Сообщений: 118
13.12.2009, 12:52 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses
    CRT;
var
   A:array[1..23]of integer;
   i:byte;
   sum:integer;
BEGIN
     writeln('Ìàññèâ À:');
     sum:=0;
     for i:=1 to 23 do
         begin
              A[i]:=integer(random(20))-5;
              write(A[i]:3);
         end;
     for i:=1 to 23 do
         if A[i]<>A[23]then
                           sum:=sum+A[i];
     writeln;
     writeln('Ñóììà=',sum);
END.
Добавлено через 16 секунд
это 1 а)
1
1915 / 1065 / 384
Регистрация: 06.12.2008
Сообщений: 2,802
13.12.2009, 12:54 3
Цитата Сообщение от V1T4S Посмотреть сообщение
Б) Дан массив из 40 элементов. Найти количество элементов, меньших первого элемента
Pascal
1
2
3
4
k:=0;
 for i:=1 to 40 do
  if a[i]<a[1] then
   k:=k+1;;
1
4342 / 1474 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
13.12.2009, 12:57 4
1.В:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
uses crt;
var m:array[1..23]of integer;
i,k,n:integer;
 
begin
 clrscr;
 for i:=1 to 23 do read(m[i]);
 readln;
 n:=1;
 while (m[n]>=0) and (n<=23) do inc(n);
 k:=0;
 for i:=n+1 do 23 do if m[i]>0 then inc(k);
 writeln(k);
 readln;
end.
1
18 / 18 / 8
Регистрация: 07.11.2009
Сообщений: 118
13.12.2009, 12:57 5
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses
    CRT;
var
   A:array[1..25]of integer;
   i:byte;
   sum:integer;
BEGIN
     writeln('Ìàññèâ À:');
     sum:=0;
     for i:=1 to 25 do
         begin
              A[i]:=integer(random(20))-5;
              write(A[i]:3);
         end;
     for i:=1 to 25 do
         if A[i]>A[25]then
                           sum:=sum+A[i];
     writeln;
     writeln('Ñóììà=',sum);
END.
2 б)
1
4342 / 1474 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
13.12.2009, 13:04 6
2.В.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
uses crt;
var a,b:array[1..30]of integer;
i,k:integer;
 
begin
 clrscr;
 for i:=1 to 30 do read(a[i]);
 readln;
 k:=0;
 for i:=1 to 30 do if a[i] mod 5=0 then
 begin
  inc(k);
  b[k]:=a[i];
 end;
 for i:=1 to 30 do if a[i] mod 5<>0 then
  begin
  inc(k);
  b[k]:=a[i];
 end;
 for i:=1 to 30 do write(b[i],' ');
 readln;
end.
1
0 / 0 / 0
Регистрация: 12.12.2009
Сообщений: 22
13.12.2009, 13:07  [ТС] 7
спасибо всем!
0
13.12.2009, 13:07
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.12.2009, 13:07
Помогаю со студенческими работами здесь

В одномерном массиве найти сумму элементов массива, расположенных после последнего элемента, равного 0
1. В одномерном массиве найти сумму элементов массива, расположенных после последнего элемента,...

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

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

Дан массив из 25 элементов. Найти сумму элементов, больших последнего элемента
Дан массив из 25 элементов. Найти сумму элементов, больших последнего элемента


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru