Одномерный массив

Pchelka · 03.06.2011, 12:02

Здравствуйте проверьте пожалуйста правильно ли решено задание, по теме одномерный массив
В массив A [ N ] занесены натуральные числа. Найти сумму тех элементов, которые, кратны данному K .

1. var i,n,k,c:integer;
2. a:array[1..100] of integer;
3. begin
4. readln(n);
5. for i:=1 to n do
6. read(a[i]);
7. readln(k);
8. c:=0;
9. for i:=1 to n do
10. if (a[i] mod k=0) then c:=c+a[i];
11. writeln(c);
12. readln;
13. end.
14.

Vladimir_S · 03.06.2011, 12:21

В принципе - вроде всё правильно. Единственно - у Вас поставлен очень неудобный, "слепой" ввод данных. Поэтому я бы на свой вкус вместо
readln(n);
for i:=1 to n do
read(a[i]);
readln(k);
сделал бы так:

Код:

write('n= ');
readln(n);
for i:=1 to n do
 begin
  write('a[',i,']= ');
  readln(a[i]);
 end;
write('k= ');
readln(k);

Но это - не принципиальное замечание.

03.06.2011, 12:02	#1 (permalink)
Pchelka Новичок Регистрация: 27.05.2011 Сообщений: 9 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Одномерный массив Здравствуйте проверьте пожалуйста правильно ли решено задание, по теме одномерный массив В массив A [ N ] занесены натуральные числа. Найти сумму тех элементов, которые, кратны данному K . 1. var i,n,k,c:integer; 2. a:array[1..100] of integer; 3. begin 4. readln(n); 5. for i:=1 to n do 6. read(a[i]); 7. readln(k); 8. c:=0; 9. for i:=1 to n do 10. if (a[i] mod k=0) then c:=c+a[i]; 11. writeln(c); 12. readln; 13. end. 14.

03.06.2011, 12:21	#2 (permalink)
Vladimir_S Специалист Регистрация: 27.08.2008 Адрес: Санкт-Петербург Сообщений: 27,807 Сказал(а) спасибо: 340 Поблагодарили 583 раз(а) в 208 сообщениях Репутация: 113184	В принципе - вроде всё правильно. Единственно - у Вас поставлен очень неудобный, "слепой" ввод данных. Поэтому я бы на свой вкус вместо readln(n); for i:=1 to n do read(a[i]); readln(k); сделал бы так: Код: write('n= '); readln(n); for i:=1 to n do begin write('a[',i,']= '); readln(a[i]); end; write('k= '); readln(k); Но это - не принципиальное замечание.

03.06.2011, 12:02
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Схожие по содержанию с вашим топики могут помочь Одномерный массив в Паскале Одномерный массив в Delphi Одномерный массив

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070