Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 08.02.2012
Сообщений: 9

Замените в массиве значения элементов с четной суммой индексов на значение второго элемента

09.02.2012, 00:14. Показов 1204. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Напишите программу формирования массива размером 5х5 с помощью датчика случайных чисел.Замените в нём значения элементов с четной суммой индексов на значение второго элемента массива из первой строки.выведите на экран исходный и измененный массивы.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
09.02.2012, 00:14
Ответы с готовыми решениями:

Замените в массиве все отрицательные значения элементов суммой значений элементов первой строки массива
3. напишите программу формирования массива размером 5*5, как типизированную константу. замените в нем все отрицательные значения элементов...

Определить в матрице количество элементов, стоящих на позициях с четной суммой индексов, которые сами чётны
1) Ввести двумерный массив 3 5 A × . Определить в нём количество тех элементов, стоящих на позициях с четной суммой индексов, которые...

В полученном массиве положительные элементы уменьшите вдвое, а отрицательные замените на значения их индексов
Задан массив AX (N). Добавить массив С(К). Выполнить сортировку включением. В полученном массиве положительные элементы уменьшите вдвое, а...

1
38 / 38 / 29
Регистрация: 18.10.2011
Сообщений: 91
09.02.2012, 16:03
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
Uses crt;
Var a:array[1..5,1..5] of integer;
    i,j,k:integer;
Begin
ClrScr;
For i:=1 to 5 do
begin
for j:=1 to 5 do
begin
 a[i,j]:=random(100);
 write(a[i,j]:4);
end;
writeln;
end;writeln;
For i:=1 to 5 do
begin
for j:=1 to 5 do
 begin
 k:=i+j;
 If k mod 2=0 then a[i,j]:=a[1,2];
 write(a[i,j]:4);
end;
writeln;
end;
end.
Так?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
09.02.2012, 16:03
Помогаю со студенческими работами здесь

Замените в матрице все отрицательные значения элементов суммой значений элементов первой строки
помогите пожалуйста! 1.Напишите программу формирования массива размером 5*5 с помощью датчика случайных чисел. Замените в нем все...

Заменить нулями в матрице элементы с четной суммой индексов
1. Даны целые числа а1,...,а4 и целочисленная матрица А(4х4). Заменить нулями в матрице элементы с четной суммой индексов, равные...

Заменить нулями в матрице элементы с четной суммой индексов
Даны массив А=(a1, a2, ..., a10) и матрица B. Заменить нулями в матрице те элементы с четной суммой индексов, для которых имеются равные...

Элементы одномерного массива с суммой квадратов индексов больше значения элемента, заменить заданным числом
26.Дан целочисленный массив размера n x m с элементами из диапазона [0,20) Те элементы, сумма квадратов индексов которых больше значения...

Заменить на 0 значения элементов массива с нечетной суммой индексов
Ребят помогите решить задачу на паскале и на бейсике. Дан массив В (N,M). Заменить на 0 значения элементов массива с нечетной...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
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. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru