Запись оставлена Гость 25.03.2017 в 16:50
запустить | скачать | новая запись
- PROGRAM PRIMER 1;
- VAR S,P,I:INTEGER;
- AARRAY[1..10] OF INTEGER;
- BEGIN
- RANDOMIZE;
- FOR I:=1 TO 10 DO
- A[I]=RANDOM(7);
- S:=0; P:=1;
- FOR I:=1 TO 10 DO
- BEGIN
- S:=S+A[A];
- P:=P*A[A];
- END;
- WRITELN (СУММА=', S:6, 'ПРОИЗВЕДЕНИЕ=', P=10);
- END.
Отправка исправлений и поправок. (cоздать новую запись)
После отправки поправок вы сможете посмотреть различия между старой и новой записью.