|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.04.2009, 22:34 | #1 |
Регистрация: 08.04.2009
Сообщений: 4
|
Помогите решить Задачу (Массивы) срочно.
Сформируйте массив, содержащий 15 элементов, с помощью датчика случайных чисел. Получите новый массив, каждый элемент которого равен разности квадрата и самого соответствующего элемента исходного массива. Найдите разность сумм элементов исходного и нового массивов. Выведите на экран исходные и полученные результаты.
Помогите, пожалуйста, очень СРОЧНО. ЗА РАНИЕ СПАСИБО. |
08.04.2009, 23:46 | #2 |
Регистрация: 08.04.2009
Сообщений: 4
|
Program net;
USES CRT; Var Max : Real; M,A:array [1..15] of integer; i:integer; Begin Randomize; for i:=1 to 15 do A[i]:=Random (30); for i:=1 to 15 do M[i]:=A[i]-2; For i:=1 to 15 do begin If (M[i]>Max) and (i mod -2 = 0) Then Max:= M[i]; end; For i:=1 to 15 do Writeln ('A[', i , ']=', A[i]); For i:= 1 to 15 do Writeln ('M[', i, ']=', M[i]); Writeln (', Max, ' '); end. Max, ' '); end. Примерно так только исправить надо помогите плиз. |
09.04.2009, 14:08 | #3 |
Участник клуба
Регистрация: 29.07.2008
Сообщений: 1,091
|
Код:
Кто бы ты ни был - не думай о себе слишком (с)
|
12.04.2009, 00:00 | #4 |
Регистрация: 08.04.2009
Сообщений: 4
|
Огромное спасибо
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите решить задачу на Двухмерные массивы. | dimmkka | Помощь студентам | 1 | 03.03.2009 00:04 |
Помогите решить задачу на массивы | DeD_Modder | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 29.10.2008 12:33 |