30.10.2014, 11:53 | #1 (permalink) |
Новичок
Регистрация: 30.10.2014
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Формирование массива
сформировать массив C по правилу: C1=Bm+A1 C2=Bm-1+A2 ................. Cm=B1+Am |
30.10.2014, 11:53 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Наверняка вам будет полезна информация которая содержится в данных обсуждениях Формирование матрицы с помощью функции как параметра процедуры, Паскаль С++ Проверка упорядоченности массива Сортировка массива Сжатие массива Окружения элементов массива |
30.10.2014, 12:22 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Извините. |
|
30.10.2014, 14:10 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Получите:
Файл lab1.dat: Код:
13 2 28 45 0 33 9 5 42 11 6 91 7 11 40 8 17 10 3 1 Код:
Const m=10; Var A,B,C:Array[1..12] of Integer; i:Integer; f:text; Begin Assign(f,'lab1.dat'); Reset(f); for i:=1 to m do read(f,A[i]); for i:=1 to m do read(f,B[i]); Close(f); for i:=1 to m do begin C[i]:=A[i]+B[m-i+1]; writeln(A[i]:8,B[i]:8,C[i]:8); end; readln End. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
30.10.2014, 19:27 | #10 (permalink) |
Новичок
Регистрация: 30.10.2014
Сообщений: 8
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|