Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Артёмм
1 / 1 / 0
Регистрация: 28.05.2011
Сообщений: 21
1

Выдать на печать массив B, элементы которого состоят из чисел массива А, порядковый номер которых кратен 2

29.11.2011, 00:27. Просмотров 610. Ответов 2
Метки нет (Все метки)

1. Составить программу, которая заполняет первые N элементов массива A(n) последователь-ностью 1, 3, 1, 3,…
2. Дан массив A(n) целых чисел. Выдать на печать массив B, элементы которого состоят из чисел массива А, порядковый номер которых кратен 2.
3. Дана матрица A(n, n). Обнулить те элементы матрицы, значения которых стоят ниже глав-ной диагонали. Вывести новую матрицу на печать.


Зарание всем спасибо.

Добавлено через 7 минут
Pascal
1
2
3
4
5
6
7
8
9
10
11
uses crt;
const
n=100;
Var
A: array[1..n] of integer ;
i:byte;
begin
for i:=1 to n do
if A[i]mod 2=1 then A[i]:=1 else A[i]:=3;
writeln('a[', n,']=', a[n]);
end.
это к 1 заданию, но тут ошибка. помогите исправить
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.11.2011, 00:27
Ответы с готовыми решениями:

Удвоение каждого элемента массива, порядковый номер которого кратен 3
1. Составить программу удвоения каждого элемента массива A(n), порядковый номер...

В типизированном файле 20 чисел. Увеличить в 2 раза все элементы, чей порядковый номер кратен 3
11. В типизированном файле 20 чисел. Увеличить в 2 раза все элементы, чей...

Сформировать из массива символьных строк массив, элементы которого состоят только из пробелов и русских букв
Помогите пожалуйста в написании текста программы. Сама задача. Сформировать из...

Найти и выдать на печать все элементы линейного массива целых чисел
1. Найти и выдать на печать все элементы линейного массива целых чисел c(n),...

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

2
Глупыш
16 / 16 / 23
Регистрация: 20.06.2011
Сообщений: 34
29.11.2011, 00:39 2
1)
Pascal
1
2
3
4
5
6
begin
read(n);
for i:=1 to n do
if i mod 2 <> 0 then a[i]:=1
else a[i]:=3;
end.
3)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
const n=5;
var a:array[1..n,1..n] of integer;
i,j:integer;
begin
for i:=1 to n do begin
 for j:=1 to n do begin
 if i<=j then a[i,j]:=random(10) else a[i,j]:=0;
 write(a[i,j]:3,' ');
 end;
 writeln;
 end;
end.
1
Gxost
39 / 39 / 30
Регистрация: 07.12.2010
Сообщений: 114
29.11.2011, 11:50 3
2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
const 
n=10;
var
a:array [1..n] of integer;
b:array [1..n] of integer;
c,d,I:integer;
begin
for i:=1 to n do
begin
write(i,' элемент= ');
readln(a[i]);
if i mod 2=0 then
begin
inc(c);
b[c]:=a[i];
end;
end;
write('Новый Массив B=[ ');
for i:=1 to c do
write(b[i],' ');
writeln(']');
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.11.2011, 11:50

Дан массив действительных чисел. Вывести на печать элементы, для которых выполняется Ai<=i
Помогите решить=))ребят, буду очень благодарна=)))

Найти номер наибольшего элемента массива размером m*n, элементы которого задаются датчиком случайных чисел
Найти номер наибольшего элемента массива размером m*n, элементы которого...

Дан двухмерный массив из 15 строк. Вставить в него строку из нулей после всех строк, номер которых кратен трем
Дан двухмерный массив из 15 строк. Вставить в него строку из нулей после всех...


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

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

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