|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
16.03.2016, 17:49 | #1 |
Новичок
Джуниор
Регистрация: 16.03.2016
Сообщений: 1
|
Помогите пожалуйста перевести код программы из Паскаля в Делфи
uses crt;
var x:array [1..100] of integer; n,i:integer; begin clrscr; writeln('razmer massiva='); readln(n); for i:=1 to n do begin read(x[i]); for i:=1 to n do write(x[i],' '); end; for i:=1 to n do begin if i>0 then x[i]:=x[i]-x[1] else if i<0 then x[i]:=x[i]-n; end; for i:=1 to n do write (x[i],' '); readln; |
16.03.2016, 18:06 | #2 |
Старожил
Регистрация: 26.04.2008
Сообщений: 2,645
|
Нужно убрать
Код:
Код:
|
16.03.2016, 18:09 | #3 |
Цифровой кот
Старожил
Регистрация: 29.08.2014
Сообщений: 7,629
|
замени
Код:
Код:
Код:
Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...
|
20.03.2016, 10:14 | #4 |
Я самый любопытный
Участник клуба
Регистрация: 24.07.2012
Сообщений: 1,950
|
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите пожалуйста перевести из Паскаля в си!!! | serjik1121 | Помощь студентам | 1 | 26.01.2015 20:22 |
Помогите пожалуйста перевести программу с Паскаля на С++ | Taras_rom | Visual C++ | 1 | 16.03.2014 21:39 |
Перевести код из паскаля на делфи с формами | Миледи | Помощь студентам | 2 | 18.04.2012 09:59 |