С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
Владимир12
0 / 0 / 1
Регистрация: 17.04.2013
Сообщений: 71
1

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

22.10.2013, 16:35. Просмотров 914. Ответов 3
Метки нет (Все метки)

В одномерном массиве Y, состоящий из N целых элементов, вычислить:
a) количество элементов, равных последнему элементу массива;
b) среднее арифметическое элементов, кратных 3. СПАСИБО
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.10.2013, 16:35
Ответы с готовыми решениями:

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

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

Вычислить количество элементов массива, равных по значению первому элементу
В одномерном массиве в том, что состоит из N целых элементов, вычислить: a)...

Вычислить количество элементов массива, равных 0
Нужно вычислить количество элементов , равных 0

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

3
Sharkboy
8 / 11 / 16
Регистрация: 30.09.2013
Сообщений: 89
22.10.2013, 18:00 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

a)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program ad;
uses crt;
var
a,b,c: array[1..10] of integer;
i,n,p,last,m,k:integer;
begin
writeln('Введите размерность');
readln(n);
for i:=1 to n do
 begin
 writeln('Введите i,i);
readln(a[i]);
 end;
 last:=0;
 For i:=1 to n do
 If a[i] = a[n] then last:=last+1;
writeln('Всего ',last,' элементов равных последнему);
readln;
end.
1
Владимир12
0 / 0 / 1
Регистрация: 17.04.2013
Сообщений: 71
17.11.2013, 15:09  [ТС] 3
В одномерном массиве Y, состоящем из N целых элементов, вычислить:
a) количество элементов, равных последнему элементу массива;
b) среднее арифметическое элементов, кратных 3.
0
sobakabobik
42 / 42 / 51
Регистрация: 04.01.2013
Сообщений: 105
17.11.2013, 16:05 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
29
30
31
32
33
34
35
36
37
38
39
40
uses
  crt;
 
var
  Y: array of integer;
  N, i, count_sa, count: byte;
  sum: longint;
 
begin
  count := 0;
  count_sa := 0;
  sum := 0;
  randomize;
  write('N = ');
  readln(N);
  setlength(Y, N);
  write('Исходный массив: ');
  for i := 0 to N - 1 do
  begin
    Y[i] := random(20) - 10;
    write(Y[i], ' ');
  end;
  writeln;
  for i := 0 to N - 1 do
  begin
    if Y[i] = Y[N - 1] then
      inc(count);
    if Y[i] mod 3 = 0 then
    begin
      inc(count_sa);
      sum := sum + Y[i];
    end;
  end;
 
  writeln('Количество элементов, равных последнему элементу массива = ', count);
  writeln('Среднее арифметическое элементов, кратных 3 = ', sum / count_sa:0:2);
 
  readln;
 
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
17.11.2013, 16:05

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

Определить количество чисел равных предпоследнему элементу массива
Я подчти сделала эту задачу но нужный результат не получаеться, напишите...

Определить количество слов, равных последнему
Доброго времени суток! Хочу попросить у Вас помощи в одном задании, которое...


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

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

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