Предмет: Информатика,
автор: CosmicGate
Дан целочисленный массив, элементы которого могут принимать значения от 0 до 1000. Разработать алгоритм, который позволяет найти сумму двухзначных элементов массива, сумма цифр которых меньше 10. Количество элементов массива и их задаются в программе.
Ответы
Автор ответа:
0
uses crt;
var i,n,summa,a:integer;
m:array [1..1000] of integer;
begin
clrscr;
writeln('Введите размер массива');
readln(n);
for i:=1 to n do
m[i]:=i;
if n<99 then a:=n else a:=99;
for i:=10 to a do
begin
if (i div 10)+(i mod 10) < 10 then
begin
summa:=summa+i;
end;
end;
writeln(summa);
readkey;
end.
var i,n,summa,a:integer;
m:array [1..1000] of integer;
begin
clrscr;
writeln('Введите размер массива');
readln(n);
for i:=1 to n do
m[i]:=i;
if n<99 then a:=n else a:=99;
for i:=10 to a do
begin
if (i div 10)+(i mod 10) < 10 then
begin
summa:=summa+i;
end;
end;
writeln(summa);
readkey;
end.
Автор ответа:
0
const n=30;
var
x,i,s:integer;
a:array[1..n]of integer;
begin
writeln('Массив:');
for i:=1 to n do
begin
x:=random(1000);
a[i]:=x;
write(x,' ');
if (x>10) and (x<100) and ((x div 10)+(x mod 10)<10) then s:=s+a[i];
end;
writeln;
writeln('Ответ: ',s);
end.
var
x,i,s:integer;
a:array[1..n]of integer;
begin
writeln('Массив:');
for i:=1 to n do
begin
x:=random(1000);
a[i]:=x;
write(x,' ');
if (x>10) and (x<100) and ((x div 10)+(x mod 10)<10) then s:=s+a[i];
end;
writeln;
writeln('Ответ: ',s);
end.
Похожие вопросы
Предмет: Математика,
автор: Аноним
Предмет: География,
автор: dakovamasa93
Предмет: Английский язык,
автор: nonomil6666
Предмет: Математика,
автор: nustya031
Предмет: Химия,
автор: Хлопонина