Запись оставлена stanislav 27.04.2017 в 06:15
запустить | скачать | новая запись
- Program ElEven;
- Const N=5; //Число элементов массива
- Var M: Array[1..N] Of Integer;
- I,R: Integer;
- Begin
- // Заполнение массива и вывод результата
- WriteLn('Please write ten numbers: ');
- WriteLn;
- For I:=1 To N Do Begin
- Write('Number ',I,' -> ');
- Read(M[I]);
- If M[I] Mod 2<>0 Then R:=R+M[I];
- End;
- WriteLn;
- WriteLn('Result: ',R);
- End.
Отправка исправлений и поправок. (cоздать новую запись)
После отправки поправок вы сможете посмотреть различия между старой и новой записью.