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

Элементы одномерного массива и их количество вводятся пользователем. Вывести массив на экран

24.06.2013, 15:51. Просмотров 870. Ответов 1
Метки нет (Все метки)

Элементы одномерного массива и их количество вводятся пользователем. Вывести массив на экран. Найти количество целых и сумму положительных элементов. Вывести номера элементов, целая часть которых равна нулю. Предусмотреть ошибку ввода пользователя. Например, пользователь может ввести по ошибке отрицательное количество элементов. Выведите массив в два столбца: в первом столбце – элементы с нечетные номерами (1-й, 3-й, 5-й и т.д.), во втором – с четными номерами.

Пожалуйста помогите!
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.06.2013, 15:51
Ответы с готовыми решениями:

Дан одномерный целочисленный массив X размерности 12, x ε [-20,20]. Вывести на экран все неотрицательные элементы массива их количество
Дан одномерный целочисленный массив X размерности 12, x ε . Вывести на экран...

Вывести на экран элементы одномерного массива, большие среднего арифметического
Вывести на экран элементы одномерного массива, большие среднего арифметического.

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

Дан массив а(n) вывести элементы массива на экран в обратном порядке
Дан массив а(n) вывести элементы массива на экран в обратном порядке

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

1
MicM
824 / 483 / 324
Регистрация: 29.12.2009
Сообщений: 1,106
Завершенные тесты: 1
25.06.2013, 14:11 2
Лучший ответ Сообщение было отмечено Павел1995 как решение

Решение

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
var
 a:array [1..100] of real;
 i,n,c:integer;
 sum:real;
begin
 repeat
  write ('Kol-vo elementov: ');readln(n);
  if n<=0 then writeln ('Error!');
 until (n>0);
 sum:=0;
 c:=0;
 for i:=1 to n do
  begin
   write ('A[',i,'] = ');readln(a[i]);
   if a[i]>0 then sum:=sum+a[i];
   if frac(a[i])=0 then c:=c+1;
  end;
  for i:=1 to n do write (a[i],' ');
  writeln;
  writeln ('Summa: ',sum);
  writeln ('Kol-vo: ',c);
  for i:=1 to n do
   if trunc(a[i])=0 then write (i,' ');
  writeln;
end.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
25.06.2013, 14:11

Вывести массив на экран. Увеличить все элементы массива A (n) в два раза.
ПК вводит с клавиатуры n чисел и записывает их в массив A (n). Вывести массив...

Все элементы массива увеличить в 2 раза и вывести новый массив на экран
Заполнить массив из пятнадцати элементов различными значениями, как...

Заменить отрицательные элементы массива нулями и вывести преобразованный массив на экран
Размер числового массива и его элементы вводятся с клавиатуры. Заменить...


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

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

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