Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.79/29: Рейтинг темы: голосов - 29, средняя оценка - 4.79
0 / 0 / 0
Регистрация: 06.01.2015
Сообщений: 40
1

Определить сумму элементов массива, оканчивающихся нулём

06.01.2015, 09:52. Показов 5762. Ответов 3
Метки нет (Все метки)

Нубская тема, я не разобрался в массивах.

1) Заполнить массив из 10 целых чисел с клавиатуры и вывести все его элементы, оканчивающиеся нулём. Определить сумму элементов массива, оканчивающихся нулём.

2) Заполнить массив из 10 элементов случайными числами, вывести его на экран и определить максимальный элемент и его номер в массиве.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.01.2015, 09:52
Ответы с готовыми решениями:

Найти число пар «соседних» элементов массива, оканчивающихся нулем
Найти число пар «соседних» элементов массива, оканчивающихся нулем k:=0; for i:=2 to n do...

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

Найти число пар соседних элементов массива, оканчивающихся нулём
Найти число пар соседних элементов массива, оканчивающихся нулём.

Определить минимальное значение среди положительных элементов массива, оканчивающихся на 3
Уважаемые!!! Нужна Ваша помощь. Сейчас сижу на экзамене и нужно решить задачку!!! Помогите...

3
4658 / 2344 / 2216
Регистрация: 10.12.2014
Сообщений: 9,021
06.01.2015, 10:08 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
var
  A : array [1..10] of Integer;
  i, S : Integer;
begin
  for i := 1 to 10 do begin Write('Enter ', i, ' number = '); ReadLn(A[i]); end;
  Write('The last digit is zero:'); S := 0; for i := 1 to 10 do if A[i] mod 10 = 0 then begin Write(' ', A[i]); S := S + A[i]; end; WriteLn;
  WriteLn('And the amount = ', S);
end.
Pascal
1
2
3
4
5
6
7
8
var
  A : array [1..10] of Integer;
  i, M : Integer;
begin
  Randomize; Write('Random array:'); for i := 1 to 10 do begin A[i] := Random(100); Write(A[i]:3); end; WriteLn;
  M := 1; for i := 2 to 10 do if A[M] < A[i] then i;
  WriteLn('Maximum A[', M, '] = ', A[M]);
end.
0
65 / 65 / 54
Регистрация: 23.09.2012
Сообщений: 212
06.01.2015, 10:12 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Раз

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
  a: array[1..10] of integer;
  i, ans: integer;
 
begin
  for i := 1 to 10 do read(a[i]);
  for i := 1 to 10 do
    if a[i] mod 10 = 0 then begin
      ans := ans + a[i];
      write(a[i], ' ');
    end;
  writeln;
  write(ans);
end.
Два

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
const
  MAX_VAL = 100;
 
var
  a: array[1..10] of integer;
  i, ans, anspos: integer;
 
begin
  randomize;
  ans := -1;
  for i := 1 to 10 do a[i] := random(MAX_VAL);
  for i := 1 to 10 do 
  begin
    write(a[i], ' ');
    if(a [i] > ans) then begin
      ans := a[i];
      anspos := i;
    end;
  end;
  writeln;
  write(ans, ' ', anspos);
end.
0
0 / 0 / 0
Регистрация: 06.01.2015
Сообщений: 40
06.01.2015, 10:16  [ТС] 4
Спасябки.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.01.2015, 10:16

Цикл Дана непостая последовательность целых чисел, оканчивающихся нулем. Найти сумму всех чисел последовательности, большее числа х
Цикл Дана непостая последовательность целых чисел, оканчивающихся нулем. Найти сумму всех чисел...

Определить количество четных элементов массива и количество элементов, оканчивающихся на цифру 5
помогите очень надо. 3.Одномерные массивы. Дан массив целых чисел. Определить количество четных...

Определить количество четных элементов массива и количество элементов, оканчивающихся а цифру 5
Одномерные массивы. Дан массив целых чисел. Определить количество четных элементов и количество...

подсчитать и вывести среднее арифметическое элементов массива,оканчивающихся нулем
Здравствуйте, помогите пожалуйста дописать программу: Дан целочисленный массив из 30...

Определить сумму элементов последовательности, оканчивающихся на 4
Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел,...

Определить максимальный элемент даных целого типа оканчивающихся нулём
Помогите написать программу: Определить максимальный элемент даных целого типа оканчивающихся...


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

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

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