Информатика | студенческий
Помогите задание в паскале.
Пожалуйста.
Помогите пожалуйста информатика, паскаль?
Помогите пожалуйста информатика, паскаль.
Помогите составить программы в паскале в 2 - х заданиях 5 вариант(в табличке13)?
Помогите составить программы в паскале в 2 - х заданиях 5 вариант(в табличке13).
Помогите составить программы для первых двух заданий срочно (вариант 5)в паскале?
Помогите составить программы для первых двух заданий срочно (вариант 5)в паскале.
Помогите составить программы для третьего и четвертого заданий срочно (вариант 5) в паскале?
Помогите составить программы для третьего и четвертого заданий срочно (вариант 5) в паскале.
Помогите, пожалуйста, решить задачу (в формате Паскаля)?
Помогите, пожалуйста, решить задачу (в формате Паскаля).
Помогите, пожалуйста ?
Помогите, пожалуйста !
В Паскале.
Напишите алгоритм к этой картинке в "Паскаль"?
Напишите алгоритм к этой картинке в "Паскаль".
Помогите, пожалуйста!
Набрать в паскале программу флага помогите пожалуйста?
Набрать в паскале программу флага помогите пожалуйста.
Задача на языке паскаль?
Задача на языке паскаль!
Условие задания.
Пожалуйста помогите нарисовать в паскале это?
Пожалуйста помогите нарисовать в паскале это.
Вы находитесь на странице вопроса Помогите задание в паскале? из категории Информатика. Уровень сложности вопроса рассчитан на учащихся студенческий. На странице можно узнать правильный ответ, сверить его со своим вариантом и обсудить возможные версии с другими пользователями сайта посредством обратной связи. Если ответ вызывает сомнения или покажется вам неполным, для проверки найдите ответы на аналогичные вопросы по теме в этой же категории, или создайте новый вопрос, используя ключевые слова: введите вопрос в поисковую строку, нажав кнопку в верхней части страницы.
/ / PascalABC.
NET
var m, e, o, nu, fi : integer ;
begin var n : = ReadInteger('Введите число элементов массива') ; var a : = ArrRandomInteger(n, - 10, 10) ; for var i : = 0 to n - 1 do begin if a[i] mod 2 = 0 then e + = 1 else o + = 1 ; if a[i] = 0 then nu + = 1 ; if a[i] = 5 then fi + = 1 end ; writeln('Содержимое массива : ') ; a.
Println ; writeln('Количество чётных : ', e) ; writeln('Количество нечётных : ', o) ; writeln('Количество нулей : ', nu) ; writeln('Количество пятёрок : ', fi)
end.