Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
Кристюша5
0 / 0 / 0
Регистрация: 22.04.2012
Сообщений: 26
1

Последовательность. Если на четном месте находится элемент, кратный 3, заменить этот элемент на его квадрат

30.04.2012, 17:44. Просмотров 1136. Ответов 2
Метки нет (Все метки)

дана последовательность натуральных чисел.Если на четном месте находится элемент,кратный 3,то заменить этот элемент на его квадрат.Полученную последовательность вывести.
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
30.04.2012, 17:44
Ответы с готовыми решениями:

Определить минимальный элемент, его номер в массиве, заменить этот элемент элемент числом 1000
1. Задать массив А с помощью генератора случайных чисел положительными и отрицательными числами....

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

Определить минимальный элемент, его № в массиве, заменить этот элемент его №
Помогите, пожалуйста Задать массив A с помощью генератора случайных чисел положительными и...

Увеличить элемент массива в 2 раза, если он стоит на четном месте
Буду очень благодарен, кто чем поможет:cry: 1 Сформировать одномерный массив из 15...

Определить, если ли в одномерном целочисленном массиве хотя бы один элемент, кратный а и кратный b
Заданы два натуральных числа a и b. Переменной w присвоить значение истина, если в одномерном...

2
valeriikozlov
Эксперт С++
4696 / 2521 / 752
Регистрация: 18.08.2009
Сообщений: 4,550
30.04.2012, 18:31 2
Лучший ответ Сообщение было отмечено Кристюша5 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var a: array[1..10] of integer; i: byte;
begin
randomize;
writeln('Исходный массив:');   
for i:=1 to 10 do
begin
a[i]:=random(10);   
write(a[i],' ');
end;
writeln('Полученный массив:');  
for i:=1 to 10 do
begin
  if (i mod 2=0) and (a[i] mod 3=0) then a[i]:=a[i]*a[i];
  write(a[i],' ');  
end;
end.
1
Кристюша5
0 / 0 / 0
Регистрация: 22.04.2012
Сообщений: 26
30.04.2012, 19:51  [ТС] 3
спасиибо большое**
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
30.04.2012, 19:51

Переменной t присвоить значение истина, если в одномерном массиве имеется хотя бы один элемент, кратный a и не кратный b
Заданы два числа a и b. Переменной t присвоить значение истина, если в одномерном массиве имеется...

В каждой строке найти минимальный элемент, и если этот элемент не равен 0, то разделить на него каждый элемент
Дана матрица А размером m*n, в каждой строке найти минимальный элемент, и если этот элемент не...

В массиве из 16 элементов найти минимальный элемент, расположенный на четном месте
Всем привет=) Помогите с прогой пож.: В массиве из 16 элементов найти минимальный элемент,...


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

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

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