Информатика | 10 - 11 классы
Здравствуйте!
Помогите пожалуйста написать программу в ПАСКАЛЕ!
____________ задание во вложении.
Помогите срочно?
Помогите срочно!
По информатике!
Нужно составить программу в Паскале!
Я его плохо понимаю!
Молю!
Само задание во вложении!
ПАСКАЛЬ АВС?
ПАСКАЛЬ АВС.
Помогите, пожалуйста.
Задания во вложениях.
Написать программу решения задания в паскале?
Написать программу решения задания в паскале.
Помогите написать программу в паскале?
Помогите написать программу в паскале.
Написать программу в Паскаль, помогите пожалуйста?
Написать программу в Паскаль, помогите пожалуйста.
Написать программу в Паскале?
Написать программу в Паскале.
Задание под буквой Б.
Помогите написать программы в Паскале?
Помогите написать программы в Паскале.
Помогите написать программа на Паскале?
Помогите написать программа на Паскале.
Помогите пожалуйста написать программу в паскале?
Помогите пожалуйста написать программу в паскале.
Помогите написать программу в Паскале, пожалуйстаНаписать программу : Ввести двухзначное число?
Помогите написать программу в Паскале, пожалуйста
Написать программу : Ввести двухзначное число.
На этой странице сайта вы найдете ответы на вопрос Здравствуйте?, относящийся к категории Информатика. Сложность вопроса соответствует базовым знаниям учеников 10 - 11 классов. Для получения дополнительной информации найдите другие вопросы, относящимися к данной тематике, с помощью поисковой системы. Или сформулируйте новый вопрос: нажмите кнопку вверху страницы, и задайте нужный запрос с помощью ключевых слов, отвечающих вашим критериям. Общайтесь с посетителями страницы, обсуждайте тему. Возможно, их ответы помогут найти нужную информацию.
Const
n = 10 ;
var
j, i : integer ;
a : array[1.
N]of real ;
s : real ; begin for i : = 1 to n do readln(a[i]) ; writeln ; writeln('ARRAY : ') ; for i : = 1 to n do write(a[i] : 8 : 2) ;
j : = 1 ; i : = 1 ; while (a[i]> ; 0)and(i< ; n) do begin i : = i + 1 ; j : = i ; end ; if j< ; > ; n then begin for i : = j + 1 to n do s : = s + abs(a[i]) ; writeln ; writeln(s : 8 : 2) ; end else writeln('единственный отрицательный - последний элемент') end.