Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Нужно вывести сообщение о том, что все элементы массива одинаковые https://www.cyberforum.ru/ pascalabc-net/ thread694003.html
b:=a; for i:=1 to n do begin for j:=1 to m do if b=a then t3:=true; end; Помогите пожалуйста, уже не знаю, что делать... проблема в том, что если дана матрица 4 4 4 3 3 3
Переменной Т присвоить значение true если сочетание день. месяц образует правильную дату PascalABC.NET
2. Составить программу, которая бы реализовала следующий алгоритм: переменной Т присвоить значение true если сочетание день. месяц образует правильную дату, и значение false- иначе(учитывая...
PascalABC.NET Нужно заново запросить ввод N и M, если они больше 20 или меньше 1, или равны 1 одновременно Проблема в том, что когда ввожу 1, происходит запрос заново. Например, ввожу 1 и 5. А когда 20, то всё хорошо. Помогите разобраться, пожалуйста. Вот фрагмент: Repeat WriteLn ('Введите... https://www.cyberforum.ru/ pascalabc-net/ thread693886.html PascalABC.NET Вычислить сумму элементов в массиве после первого отрицательного Дан массив из n чисел. Вычислите сумму элементов в массиве после первого отрицательного. Program a6_2_8; const n=15; var a:array of integer; x,i,m,c:integer; begin randomize; for i:=1 to... https://www.cyberforum.ru/ pascalabc-net/ thread693866.html
PascalABC.NET По трем введенным сторонам определить площадь треугольника
1. Составить программу, которая вводит 3 числовых значения a, b, c и, рассматривая их как длины сторон треугольника, подсчитывает его площадь по формуле Герона: S = sqrt (p*(p-a)* (p-b)* (p-c)),...
PascalABC.NET В матрице переставить набиольший элемент в верхний левый угол, а минимальный элемент в правый нижний угол Помогите разобраться... Пишет ошибку, когда считывает элементы массива из файла. И еще куда вставить проверку, что файл пуст и что элементы в массиве одинаковые?! Очень нужна помощь!!! const... https://www.cyberforum.ru/ pascalabc-net/ thread693194.html
PascalABC.NET Отсортировать слова в заданном списке по алфавиту https://www.cyberforum.ru/ pascalabc-net/ thread692595.html
добрий вечер! помогите решить задачу! напишите код програмы пожалуйста! буду очень благодарен!
Во всех словах текстового файла первую букву слова заменить заглавной PascalABC.NET
В этой задаче столкнулся с проблемой. В одном моменте надо переместить каретку назад. А в текстовом файле нельзя использовать seek. var f:text; i:byte; s:string; ch:char; begin ...
PascalABC.NET Треугольная пирамида. Углы между основанием и боковой гранью https://www.cyberforum.ru/ pascalabc-net/ thread692137.html
Площадь полной поверхности правильной треугольной пирамиды равна S. Зная, что угол между основание и боковой гранью пирамиды равен F, составить программу, которая определяет, какой из двух углов...
PascalABC.NET Принадлежность точки множеству Составить программу, которая определяет, принадлежит ли точка Z(X,Y) множеству точек плоскости, произведение расстоянии от которых до осей координат равно модулю разности этих плоскостей. https://www.cyberforum.ru/ pascalabc-net/ thread692128.html
Задача считалочка по олимпиаде PascalABC.NET
имя входного файла mult.in имя выходного файла mult.out максимальное время работы на одном тесте 1 секунда ограничение по памяти 64 мб Машенька любит умножать целые числа.Ай да...
PascalABC.NET Найти определитель матрицы методом Гаусса https://www.cyberforum.ru/ pascalabc-net/ thread690591.html
Написать программу нахождение определителя матрицы методом Гаусса
Фрилансер
3417 / 2814 / 3000
Регистрация: 08.02.2012
Сообщений: 8,494
Записей в блоге: 1
11.11.2012, 09:17 0

Дан массив из n чисел. Все четные элементы умножить на 3, а к нечетным прибавить 2 - PascalABC.NET - Ответ 3681357

11.11.2012, 09:17. Показов 2123. Ответов 1
Метки (Все метки)

Ответ

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
const n=10;
 var a:array [1..n] of integer;
 i:integer;
 begin
 Randomize;
 for i:=1 to n do
 begin
 a[i]:=Random (20)-15;
 write (a[i],' ');
 end;
 for i:=1 to n do
 if A[i] mod 2 = 0 then A[i]:=A[i]*3
  else A[i]:=A[i]+2;
 writeln;
 for i:=1 to n do
  write (a[i],' ');
 end.
Надо проверять и менять значения массива а не как вы в переменную значение массива занесли в цикле его меняете...

Вернуться к обсуждению:
Дан массив из n чисел. Все четные элементы умножить на 3, а к нечетным прибавить 2 PascalABC.NET
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.11.2012, 09:17
Готовые ответы и решения:

Дан массив целых чисел из 10 элементов.Все элементы кратные 10 заменить 0;Все нечетные элементы удвоить, а четные уменьшить на 2;
Дан массив целых чисел из 50 элементов. Все элементы кратные 10 заменить 0; Все нечетные...

Дан массив целых чисел. Все его элементы умножить на последний элемент
Дан массив целых чисел. Все его элементы умножить на последний элемент

Дан массив целых чисел. Напечатать все четные элементы
Использование условий для изменения элементов массива и вывода их на экран 6.3) Дан массив целых...

дан массив а состоящий из к целых положительных чисел. Записать все четные по значению элементы массива а в массив b
дан массив а состоящий из к целых положительных чисел. Записать все четные по значению элементы...

1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
11.11.2012, 09:17
Помогаю со студенческими работами здесь

В матрице, записанной в файл, четные элементы разделить на 4, а к нечетным прибавить 10
Вот условие задачи: В матрице A(6,6) четные элементы разделить на 4, а к нечетным прибавить 10....

Дан массив из n целых чисел.Удвоить все элементы послед-ти, значения которых четные.
ПОМОГИТЕ пожалуйста решить!Дан массив из n целых чисел.Удвоить все элементы послед-ти, значения...

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

Дан массив целых чисел. Вывести все четные элементы массива, стоящие на нечетных местах
Не могу понять как это сделать :(

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