Информатика | 5 - 9 классы
РЕШИТЕ ПОЖАЛУЙСТА ЗАДАЧКУ ПО ИКТ В PASCAL ABC NET
через integer.
Решите пожалуйста задачу для Pascal ABC 8класс?
Решите пожалуйста задачу для Pascal ABC 8класс.
Все задания указаны в изображениях, все сделать с помощью программы PASCAL ABC NET помогите я в этом вообще не понимаю?
Все задания указаны в изображениях, все сделать с помощью программы PASCAL ABC NET помогите я в этом вообще не понимаю.
Дан двумерный массив целых чисел?
Дан двумерный массив целых чисел.
Вывести все строки, состоящие только из чисел одного знака в обратном порядке.
На Pascal ABC.
Net.
Составьте алгоритм, блок - схему и программу вычисления суммы квадратов числа 2?
Составьте алгоритм, блок - схему и программу вычисления суммы квадратов числа 2.
Pascal abc.
Net.
Помогите пожалуйста(Pascal ABC?
Помогите пожалуйста(Pascal ABC.
NET).
Найти сумму четных делителей введенного целого числа(Pascal abc?
Найти сумму четных делителей введенного целого числа(Pascal abc.
Net).
Что такое print в pascal abc?
Что такое print в pascal abc.
Net? .
Подсчитать кол - во отрицательных чисел из 10 введенных с клавы (pascal abc?
Подсчитать кол - во отрицательных чисел из 10 введенных с клавы (pascal abc.
Net).
Решить в Pascal ABC?
Решить в Pascal ABC.
Пожалуйста, помогите).
Найти большее из 4 - ёх чисел pascal ABC NET?
Найти большее из 4 - ёх чисел pascal ABC NET.
На этой странице находится ответ на вопрос РЕШИТЕ ПОЖАЛУЙСТА ЗАДАЧКУ ПО ИКТ В PASCAL ABC NETчерез integer?, из категории Информатика, соответствующий программе для 5 - 9 классов. Чтобы посмотреть другие ответы воспользуйтесь «умным поиском»: с помощью ключевых слов подберите похожие вопросы и ответы в категории Информатика. Ответ, полностью соответствующий критериям вашего поиска, можно найти с помощью простого интерфейса: нажмите кнопку вверху страницы и сформулируйте вопрос иначе. Обратите внимание на варианты ответов других пользователей, которые можно не только просмотреть, но и прокомментировать.
Накалякал немножко = )
var a, n, i, t, g : integer ;
begin
t : = 0 ;
g : = 0 ;
readln(N) ;
for i : = 1 to N do
begin
readln(a) ;
if a>t then
t : = a ;
if a = 0 then
g : = 1 ;
end ;
writeln(t) ;
if g>0 then
writeln('YES')
else
writeln('NO') ;
end.