сервис вопросов и ответовНаписать на языке pascal. Дан массив с1,с2....с15 состоящий из нулей и единиц. Подсчитать количество 0,количество 1, и количество нулей до первой
5-9 класс|
|
единицы
OoAmioO
17 авг. 2014 г., 11:39:13 (9 лет назад)
89082410723
17 авг. 2014 г., 13:00:15 (9 лет назад)
var c:array[1..15]of byte;
i,s1,s2,s3:integer; k:boolean;
begin
for i:=1 to 15 do readln(c[i]);
for i:=1 to 15 do begin
if c[i]=0 then inc(s1) else inc(s2);
if c[i]<>0 then k:=true;
if k=false then inc(s3);
end;
writeln(s1,' ',s2,' ',s3);
end.
Ответить
Другие вопросы из категории
Читайте также
Можно на языке java: дан массив размера N. Вывести его элементы в обратном порядке. И еще одна: даны два целых числа А и В(А<В). Вывести в порядке возра
ствния все целые числа расположенные между ними(включая сами числа)а так же кол-во N этих чисел, заранее благодарю
HELP!!
*Дан массив А целых чисел, состоящий из 20 элементов. Заполнить с клавиатуры.
1) Создать новый массив В, каждый элемент которого равен корню квадратному элемента массива А.
2)Найти сумму элементов массива с 11 по 15.
3) Найти элемент массива кратный 8 и его индекс.
4)Найти удвоенную сумму положительных элементов.
5)Вывести индексы тех элементов, значения которых больше значения предыдущего элемента( начиная со второго).
6) Определить, есть ли 2 пары соседних элементов с одинаковыми знаками.
7)Найти количество положительных элементов.
8)Вычесть из положительных элементов элемент с номером 2, а к отрицательным прибавить элемент с номером 4.
9) Удалить из таблицы все элементы массива, кратные 3 или 5.
10) Поменять местами второй элемент массива и первый чётный.
Помогите пожалуйста. Срочно нужно)
Решить задачи на языке программирования в Turbo Pascal: 1) Дан массив, состоящий из 10 чисел, значения могут быть
от -100 до 100. Определить минимальное положительное число.
2) Дан массив, состоящий из 10 чисел. Найдите номера тех элементовв масива, которые наименее различаются.
Вы находитесь на странице вопроса "Написать на языке pascal. Дан массив с1,с2....с15 состоящий из нулей и единиц. Подсчитать количество 0,количество 1, и количество нулей до первой", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.