Для каждого элемента с нечетным индексом найти и вывести количество цифр и их сумму

@gvgtffb · Регистрация: 21.03.2017

Студворк — интернет-сервис помощи студентам

Дан массив целых чисел. Для каждого элемента с нечетным индексом найти и вывести количество цифр и их сумму. (с использованием пользовательских процедур или функций.)

@Puporev · 05.06.2017, 13:38

Pascal

uses crt;
function kol(n:integer):integer;
var m,k:integer;
begin
m:=abs(n);
k:=0;
if m>0 then
while m>0 do
 begin
  m:=m div 10;
  k:=k+1;
 end;
kol:=k;
end;
function sum(n:integer):integer;
var m,s:integer;
begin
m:=abs(n);
s:=0;
if m>0 then
while m>0 do
 begin
  s:=s+m mod 10;
  m:=m div 10;
 end;
sum:=s;
end;
var a:array[1..35] of integer;
    n,i:integer;
begin
randomize;
repeat
write('Введите размер массива от 2 до 35 n=');
readln(n);
until n in [2..35];
clrscr;
writeln('Массив');
for i:=1 to n do
 begin
  a[i]:=-50000+random(100001);
  write(a[i]:8);
 end;
writeln;
writeln('Числа на нечетных позициях, количество и сумма их цифр');
for i:=1 to n do
if odd(i) then  writeln(a[i]:6,kol(a[i]):2,sum(a[i]):3);
end.

@gvgtffb 0 / 0 / 0 Регистрация: 21.03.2017 Сообщений: 69
		1
	Для каждого элемента с нечетным индексом найти и вывести количество цифр и их сумму 05.06.2017, 13:05. Показов 2308. Ответов 1 Метки нет (Все метки) Дан массив целых чисел. Для каждого элемента с нечетным индексом найти и вывести количество цифр и их сумму. (с использованием пользовательских процедур или функций.) 0

	05.06.2017, 13:38

Опции темы

Для каждого элемента с нечетным индексом найти и вывести количество цифр и их сумму

Решение