Определить сумму и количество элементов массива, которые делятся на 7 и 3 одновременно

@oleg5432 · Регистрация: 11.02.2016

дан одномерный массив a(n) целых чисел определить сумму и кол-во элементов которые делятся на 7 и 3 одновременно
б)все числа элемента удвоить вывести массив
удалить из массива 5 элемент где n больше или = 5

@Peoples · 11.02.2016, 22:16

Pascal

program pr;
type
arr=array[1..100]of integer;
var
a:arr;
i,n:integer;
procedure fill(); // заполнение и вывод массива
var
i:integer;
begin
for i:=1 to n do 
begin
a[i]:=random(100); // диапазон можешь задать любой
end;
for i:=1 to n do
write(a[i]:3);
end;
procedure sumcr(var v:arr);   // процедура для подсчёта суммы чисел дел на 7 и 3, их их количества
var
i,sum,cout:integer;
begin
for i:=1 to n do
begin
if (v[i] mod 7=0) and (v[i] mod 3=0) then
begin
sum:=0;
sum:=sum+v[i];
inc(cout);
end;
end;
writeln;
writeln('Сумма элементов,которые делятся на 7 и 3 =',sum);
writeln('Количество элементов,которые делятся на 7 и 3 =',cout);
end;
procedure x2 (var v:arr); // процедура удвоения элементов массива
var
i:integer;
begin
for i:=1 to n do
begin
v[i]:=2*v[i];
end;
writeln('Удвоенный массив');
for i:=1 to n do
write(' ',v[i]:3);
end;
begin
writeln('Введите размер массива');
readln(n);
fill();
sumcr(a);
x2(a);
end.

Что ты подразумевал под этим- "удалить из массива 5 элемент где n больше или = 5", я не понял

@oleg5432 · 11.02.2016, 22:45 **[ТС]**

Сорян, но я хз) сказали так мне. Спасибки за помощь

Добавлено через 6 минут
как мне только, что объяснили, то имеется виду "ну то есть он у тебя от 1...5 и 5 убрать нужно"

@Peoples · 11.02.2016, 22:56

Pascal

program pr;
type
arr=array[1..100]of integer;
var
a:arr;
i,n:integer;
procedure fill(); // заполнение и вывод массива
var
i:integer;
begin
for i:=1 to n do 
begin
a[i]:=random(100); // диапазон можешь задать любой
end;
for i:=1 to n do
write(a[i]:3);
end;
procedure sumcr(var v:arr);   // процедура для подсчёта суммы чисел дел на 7 и 3, их их количества
var
i,sum,cout:integer;
begin
for i:=1 to n do
begin
if (v[i] mod 7=0) and (v[i] mod 3=0) then
begin
sum:=0;
sum:=sum+v[i];
inc(cout);
end;
end;
writeln;
writeln('Сумма элементов,которые делятся на 7 и 3 =',sum);
writeln('Количество элементов,которые делятся на 7 и 3 =',cout);
end;
procedure x2 (var v:arr); // процедура удвоения элементов массива
var
i:integer;
begin
for i:=1 to n do
begin
v[i]:=2*v[i];
end;
writeln('Удвоенный массив');
for i:=1 to n do
write(' ',v[i]:3);
end;
procedure fith(var v:arr);// процедура если массив длиной больше 5 или равен 5, убирает 5 элемент(делает его 0)
var
i:integer;
begin
if (n>=5) then
begin
for i:=1 to n do
v[5]:=0;
end;
for i:=1 to n do
write(' ',v[i]:3);
end;
begin
writeln('Введите размер массива');
readln(n);
fill();
sumcr(a);
x2(a);
writeln;
fith(a);
end.

Возможно так

Определить сумму и количество элементов массива, которые делятся на 7 и 3 одновременно

Решение

Решение

@oleg5432 0 / 0 / 0 Регистрация: 11.02.2016 Сообщений: 13
		1
	Определить сумму и количество элементов массива, которые делятся на 7 и 3 одновременно 11.02.2016, 20:04. Показов 3502. Ответов 3 Метки массив pascal (Все метки) дан одномерный массив a(n) целых чисел определить сумму и кол-во элементов которые делятся на 7 и 3 одновременно б)все числа элемента удвоить вывести массив удалить из массива 5 элемент где n больше или = 5 0

@oleg5432 0 / 0 / 0 Регистрация: 11.02.2016 Сообщений: 13
	11.02.2016, 22:45 [ТС]	3
	Сорян, но я хз) сказали так мне. Спасибки за помощь Добавлено через 6 минут как мне только, что объяснили, то имеется виду "ну то есть он у тебя от 1...5 и 5 убрать нужно" 0

Опции темы