Const N = 20; Var A:array[1..N] of integer; i:integer; S:real; Begin Randomize; S:=0; Write('Исходный массив: '); For i:= 1 to N do Begin A[i]:=random(21)-10; Write(A[i],' '); if A[i] mod 2 = 0 then S:=S+A[i]; End; WriteLn; WriteLn('Сумма чётных элементов: ',S); End.
Сумма номеров от 1 до 9 равна 45. Сумма от 10 до 19 равна 10 + 45 = 55. Сумма от 20 до 29 равна 2*10 + 45 = 65. Сумма от 30 до 39 равна 3*10 + 45 = 75. ... Сумма от 90 до 99 равна 9*10 + 45 = 135. Сумма всех цифр от 1 до 99 равна 45 + 55 + 65 + ... + 135 = (45 + 135)*10/2 = 180*10/2 = 900 В номерах от 100 до 199 та же сумма цифр 900 + 100*1 = 1000 В номерах от 200 до 209 сумма цифр 2*9 + 45 = 18 + 45 = 63 В номерах от 210 до 212 сумма цифр 2+1+0+2+1+1+2+1+2 = 12 Итого сумма всех цифр 900 + 1000 + 63 + 12 = 1975
Компакт - диск царапается и теряется на нём информация. Он подойдёт в том случае, если ты его будешь реже испоьзовать. Флешка более долговечна и надёжнее, так как её не повредишь и также можна хранить огромный объём информации. Если смотреть на цену, то диск будет дешевле, чем флешка. В последнее время компакт - диск стал понемногу уступать флешке. Были ещё дискети, но их уже тоже перестали выпускать. Они могли размагнититься от воздействия магнитов и електронных полей и можно было легко повредить. Считаю, что флешка является найболее надёжной и долговечной.
N = 20;
Var
A:array[1..N] of integer;
i:integer;
S:real;
Begin
Randomize;
S:=0;
Write('Исходный массив: ');
For i:= 1 to N do
Begin
A[i]:=random(21)-10;
Write(A[i],' ');
if A[i] mod 2 = 0 then S:=S+A[i];
End;
WriteLn;
WriteLn('Сумма чётных элементов: ',S);
End.