сервис вопросов и ответов1. Дан массив. Напечатать:а) Все четные1. Дан массив. Напечатать:
10-11 класс|
|
а) Все четные элементы
б) Все элементы, оканчивающиеся нулем.
2. В массиве хранится информация о количестве осадков, выпавших каждый день января. Определить, в какие числа месяца осадков не было.
В паскале. Заранее спасибо.
IGrande
17 янв. 2017 г., 4:46:55 (7 лет назад)
Petrushckalena1982
17 янв. 2017 г., 6:47:17 (7 лет назад)
program gt;
var a:array[1..100]of integer;
n,i:integer;
begin
read(N);
for i:=1 to n do
read(a[i]);
write('чётные числа ');
for i:=1 to n do
if(a[i] mod 2=0)then write(a[i],' ');
writeln;
write('числа оканчивающиеся нулем ');
for i:=1 to n do
if(a[i] mod 10=0)then write(a[i],' ');
end.
2)
program gt;
var a:array[1..1000]of integer;
n,i:integer;
begin
read(N);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if(a[i]=0)then write(i,' ');
end.
Ответить
Другие вопросы из категории
Сформируйте массив, содержащий 15 элементов, с помощью датчика случайных чисел. Получите новый массив, каждый элемент которого равен увеличенному на
заданное с клавиатуры число соответствующему элементу исходного массива. Выведите на экран исходные и полученные результаты.
написать программу на паскаль:
Найти произведение наибольших элементов двумерного массива, первый элемент которого отрицателен.
Читайте также
1. Дан массив. Напечатать:а) Все четные1. Дан массив. Напечатать:
а) Все четные элементы
б) Все элементы, оканчивающиеся нулем.
2. В массиве хранится информация о количестве осадков, выпавших каждый день января. Определить, в какие числа месяца осадков не было.
Паскаль.
Паскаль. 12.Дан массив А(3*4). Найти сумму первых отрицательных элементов в каждом столбце. 13.Даны два массива А(3*3)
и В(3*3). Вывести на экран тот из них, у которого меньше сумма элементов главной диагонали.
17.Дан массив А(3*4). Заменить все отрицательные элементы на противоположные.
Составить программу Дан массив натуральных чисел , размерность -12 !) Заполнение массива производить с клавиатуры 2) Вывести на печать
только элементы кратные 2
3)Найти сумму первых пяти элементов
Составить программу Дан массив целых чисел , размерность -12
1) Заполнение массива производить случайными числами из диапозона [-10;35]
2)Вывести на печать только положительные элементы
3)Найти количество отрицательных элементов
Составить программу
Известны данные о выпуске прождукции ( ткани в метрах ) ткацким цехом текстильного комбината за каждый день месяца . Определить количество ткани ( метров) произведенных цехом за месяц .
№1. Дан массив из 30-ти элементов. Каждый элемент может принимать целочисленные значения от 0 до 100. Напишите программу, которая позволит найти сумму
двузначных элементов массива, которые не оканчиваются на 3. №2. Дан массив из 100 элементов. Каждый элемент может принимать целочисленные значения от 1 до 500. Напишите программу, которая позволит найти и вывести минимальное значение среди элементов массива, которые делят максимальное значение элементов массива без остатка.
№1. Дан массив из 30-ти элементов. Каждый элемент может принимать целочисленные значения от -100 до 100. Напишите программу, которая позволит
подсчитать среднее арифметическое положительных элементов массива, которые кратны первому элементу массива. №2. Дан массив из 40 элементов. Каждый элемент может принимать целочисленные значения от 0 до 200. Напишите программу, которая позволит найти наиболее часто встречающийся элемент массива
Вы находитесь на странице вопроса "1. Дан массив. Напечатать:а) Все четные1. Дан массив. Напечатать:", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.