Версия для печати темы

Автор: goosberry 1.07.2008 20:32

Ввести массив а из 10 целых чисел. Определить в нём сумму элементов, отличных от значения M, M вводится с клавиатуры.
Вот я написала такую программу:

 
program zadacha;
uses crt;
var a:array [1..10] of integer;
M, I, s1,s2,sum; integer;
begin clrscr;
write (‘Введите массив’);
for i:=1 to 10 do readln (a[i]);
write (‘Введите значение M’);
read (M);
For i:=1 to 10 do if a[i]>M then s1:=s1+a[i];
For i:=1 to 10 do if a[i]<M then s2:=s2+a[i];
sum:=s1+s2;
Write (‘sum= ’, sum);
readkey;
end.

Скажите пожалуйста, соответствует ли написанная мной программа заданию?

Автор: samec 1.07.2008 20:58

соответствует.
можно вот эти строки

For i:=1 to 10 do if a[i]>M then s1:=s1+a[i];
For i:=1 to 10 do if a[i]<M then s2:=s2+a[i];
sum:=s1+s2;

заменить одной строчкой:

For i:=1 to 10 do if a[i]<>M then sum:=sum+a[i];

Автор: goosberry 1.07.2008 21:16

Спасибо, просто мы никогда таких задач не решали и я написала так, как смогла...