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 Написать программу нахождение определителя матрицы методом Гаусса

CodeR

Фрилансер

3417 / 2814 / 3000

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

Сообщений: 8,494

Записей в блоге: 1

11.11.2012, 09:17

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

11.11.2012, 09:17. Показов 2123. Ответов 1

Метки (Все метки)

Ответ

Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

11.11.2012, 09:17

Готовые ответы и решения:

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

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

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

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

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

11.11.2012, 09:17

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

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

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

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

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

Наверх