Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.75/4: Рейтинг темы: голосов - 4, средняя оценка - 4.75
alt555
0 / 0 / 0
Регистрация: 05.03.2013
Сообщений: 14
1

В одномерном массиве A из n элементов найти количество ненулевых элементов и уменьшить положительные элементы на 20

26.05.2013, 11:58. Просмотров 638. Ответов 1
Метки нет (Все метки)

задание: В одномерном массиве A из n элементов найти количество ненулевых элементов и уменьшить положительные элементы на 20.

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
var 
A: array[1..40] of real;
n,i,s: word;
 
begin
writeln ('введитеколличествоэлементов N=' );
readln (n);
i:=1;
repeat
write ( 'A[',i,']=') ; 
       readln(A[i]);     
        i:=i+1; 
until i > n;
  s:=0;
For i:=1 to n do
    begin
       if A[i]<>0 then
s:=s+1;
if A[i]>0 then
A[i]:=A[i]-20;
end;
 
For i:=1 to n do
writeln (A[i]);
 
writeln ('количество не нулевых элементов');
write (s);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.05.2013, 11:58
Ответы с готовыми решениями:

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

Найти в одномерном массиве сумму и количество элементов
Если кому-нибудь понадобиться найти в одномерном массиве сумму, количесво и т....

В двумерном массиве вычисилить количество отрицательных элементов и заменить нулями положительные элементы
Дана целочисленная матрица порядка n*m. Вычисилить: количество отрицательных...

В одномерном числовом массиве найти количество разных элементов
Как сделать в конце, чтобы программа выполнялась? Program x1; uses crt;...

В одномерном массиве найти количество элементов с нечетными индексами
В одномерном массиве X i (i = 1…5) найти количество элементов с нечетными...

1
КонецСвета
Почетный модератор
7929 / 3900 / 2464
Регистрация: 30.10.2011
Сообщений: 5,379
26.05.2013, 12:04 2
Цитата Сообщение от alt555 Посмотреть сообщение
Pascal
1
n,i,s: word;
на
Pascal
1
n,i,s: integer;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.05.2013, 12:04

В одномерном массиве найти количество четных и нечетных элементов
В одномерном массиве найти количество четных и нечетных элементов.

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

В одномерном массиве найти количество элементов, кратных 5, и принадлежащих интервалу [10..50]
Найти количество элементов, кратных 5 и принадлежащих интервалу 10&lt;=F&lt;=50, в...


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

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

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