Напишите программу вычисления в массиве A(N) Суммы двузначных элементов с одинаковыми цифрами в числе.
5-9 класс
|
var i,j,n,k: integer;
a: array [1..100] of integer;
begin
k:=0;read (n);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i]>10) and ((a[i] mod 10) = (a[i] div 10))
then k:=k+a[i];
write (k);
end.
Другие вопросы из категории
несёт текст, содержащий 10 символов?3.Набранный на компе текст содержит 3 страницы по 40 строк на каждой странице и по 25 символов в каждой строке. Сколько информации несёт это сообщение?
спроса на пироги с той начинкой, популярность которых неуклонно росла из месяца в месяц
Читайте также
элементов. 3) Составьте программу вычисления среднего арифметического элементов массива. Пожалуйста.. очень надо!
N) произведения нечетных элементов 2)Составьте программу вычисления в массиве B(N) максимального среди отрицательных элементов и его номера. заранее огромное спасибо! очень нужно!
строках.Вывод результата сопроводите пояснениями
2)Напишите программу ввода трех величин( А,В,С) на одной строке,рассчитайте и выдайте на экран на отдельной строке значение выражения: (А*В)/3,14 +3С.
3)Напишите программу вычисления длины окружности и площади круга одного и того же заданного радиуса R.
Решать на паскале...Помогите пожалуйста(((
Составьте блок-схему алгоритма и программу вычисления в массиве A(N)
суммы всех чисел, кратных 3.
б)Напишите программу, которая массив из 20 элементов заполнит неповторяющимися целыми числами и выведет на экран элементы с нечетными индексами.