Все положительные элементы массива увеличить на К - Pascal ABC

Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Рейтинг 4.86/7:

@Lamike 0 / 0 / 0 Регистрация: 25.09.2013 Сообщений: 35

	Все положительные элементы массива увеличить на К 04.11.2013, 17:40. Показов 1418. Ответов 1 Метки нет (Все метки) N=14 Ввести число К. Все положительные элементы массива увеличить на К Помогите решить пожалуйста 0

Лучшие ответы (1)

Сообщение: #5284762

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

04.11.2013, 17:40

Ответы с готовыми решениями:

Все положительные элементы массива увеличить на К.
1.N=14 Ввести число К. Все положительные элементы массива увеличить на К.

Увеличить все положительные элементы матрицы в 2 раза
Помогите! Написать программу для ввода и вывода матрицы размера k х n (k<=20; n<=25). Увеличить все положительные элементы матрицы в 2...

Положительные элементы исходного массива оставить без изменения, нулевые элементы увеличить на единицу
Дан массив X(N,M). Сформировать одномерный массив следующим образом: положительные элементы исходного массива оставить без изменения,...

L_e_g_i_o_n

100 / 100 / 86

Регистрация: 20.10.2013

Сообщений: 186

04.11.2013, 17:50

Сообщение было отмечено Lamike как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
a:array[1..14] of integer;
i,z,j,n,k:integer;
begin
for i:=1 to 14 do
begin
 a[i]:=random(50)-25;
 write(a[i],' ');
end;
writeln;
write('Ââåäèòå ÷èñëî K: ');
readln(k);
for i:=1 to 14 do
begin
 if a[i]>0 then a[i]:=a[i]+k;
 write(a[i],' ');
end;
writeln;
end.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

04.11.2013, 17:50

Помогаю со студенческими работами здесь

Увеличить все положительные элементы массива на 5
Добрый день! Прошу помочь с решением. Задача: Если среднее арифметическое элементов массива x(n,m) больше 50, но меньше 100, то увеличить...

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

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

Все положительные элементы массива увеличить на 2, а все отрицательные - уменьшить на 2
Составить программы для решении задач, используя среду программирования Visio studio. Дан массив А . Составить программу, которая в...

Увеличить все положительные элементы массива на заданное число
Увеличить все положительные элементы массива на заданное число vba. Помоги плиз)

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

Наверх