Var i, sum: integer;mas:array[1..20] of integer;beginrandomize;For i:=1 to 20 do beginmas[i] := random(100);write(mas[i], ',');sum := sum + mas[i];end;writeln('Sum = ', sum);end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку